Perl tutorial code