Update Perl script