fix Perl code