Select Code to Download

<spoiler>

printf "%-s", "getting perlmonks nodes\n";
my $node = { node1 => qw(The Monastery Gates), node2 => qw(Seekers of 
+Perl Wisdom) };
...
 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

</spoiler>

use japh; print;