Yer book is very very nice, and highly anticipated (I can't wait to get a hard copy). I'll keep on sending you comments. Since you mention the latest snapshot, I whipped up a little something useful (well to me anyway):

#!/usr/bin/perl -w
#
## Please save me in the dir where you wish to "mirror" japhys website

$^W = 1;

use strict;
use HTML::LinkExtor;
use LWP::Simple;
use URI;

my $root = 'http://japhy.perlmonk.org/book/';
my %mirrors = ();


require HTML::LinkExtor;

my $p = HTML::LinkExtor->new(
    sub { my($tag, %LNK) = @_;
         if(($tag eq "a") and ($LNK{href} =~m/^$root/i))
         {
            printf "added %s \n",
            $mirrors{$LNK{href}} = (URI->new($LNK{href})->path_segment
+s())[-1];
         }
        },
    $root);

printf " fetching index.pl %s\n", getstore($root,"index.html");

$p->parse_file("index.html");


while (my ($url, $localfile) = each(%mirrors))
{
    print "mirroring $url => $localfile\n";
    printf "%s\n", mirror($url, $localfile);
}
[download]

 
___crazyinsomniac_______________________________________
Disclaimer: Don't blame. It came from inside the void
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"