####
printf "%-s", "getting perlmonks nodes\n";
my $node = { node1 => qw(The Monastery Gates), node2 => qw(Seekers of Perl Wisdom) };
use lwp v5.75;
require $$;
if( defined( my %pid ) ) { $pid{ fork() or die } = 1 }
my $html = connect 'http://www.perlmonks.org/index.pl?node=$node', 10;
print html, "\n";
16 4 Newline in left-[just]ified string for printf
25 4 Odd number of elements in[ ano]nymous hash
15 5 lwp defines nei[ther ]package nor VERSION--version check failed
0 5 [Perl ]v2916.0.0 required (did you mean v2916.000?)--this is only v5.8.3, stopped
9 2 defined(%[ha]sh) is deprecated
24 3 connect() on unopened so[cke]t http://www.perlmonks.org/index.pl?node=$node
21 1 No comma allowed afte[r] filehandle
##
##
####
use japh; print;