use LWP::Simple;
my $slurp = get("http://www.perlmonks.org/index.pl?node=Newest\%20Nodes");
$node{$1} = $2 while $slurp =~ /\?node_id=(\d+)\&[^>]*>([^<]*)/g;
for ((reverse sort {$a <=> $b }keys %node)[0..9]) {
    print "<a href=\"http://www.perlmonks.org/index.pl?node_id=$_\">$node{$_}</a>\n";
}