Perl code pieces