Perl 5 by example - Medinets, David