use LWP::Simple;

$a = get("http://perlmonks.org/index.pl?");

(getLink($1)) while ($a =~s/a href=\"(http:\/\/.+)\"//);

sub getLink{
        if($pid = fork()){
        $_ = shift; $filename = $& if /(?<=http:\/\/)[\w+|\.|\d+]+/;
        open OUT,">pages/$pid-$filename" or die $!;
        print OUT get($_);
        close OUT;
        exit(0);
        }
}