Code from the Perl tutorial in the supplement.
