Examples for Programming Perl, Chapter 3