Example code for Perl Introduction course