Perl script