how to write a basic perl script