Perl script: first line