Perl code example