Perl programs