Examples for Programming Perl, Chapter 4