Perl examples