More Perl examples