Perl code