Examples for Programming Perl, Chapter 7