For use with Modern Perl book