update Perl code