Code from the Perl tutorial on page 102.
