Perl script works