Code for the Perl tutorial
