my first perl script