Perl book