perl script for hello world