Perl code dump