Adding Perl script