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