note
xiper
Like others have pointed out, it is highly dependant on your os and perl version, hence my bold disclaimer. For starters, it will only work on win32 because it relies on a case-insensitive filename bug. v5.8.3 works for me.
<code>
<spoiler>
</code>
<table bgcolor="white"><tr><td><font color="white">
<code>
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
</code>
</font></table>
<code>
</spoiler>
</code>
<b>Update:</b> [ysth]'s comment
<div class="pmsig">
<div class="pmsig-232711">
<p>
- ><iper
<code>
use japh; print;
</code>
</div>
</div>
337612
337835