use strict;
use LWP::Simple;

my $content = get("http://freshmeat.net/news/2000/09/19/969383787.html
+");
if ($content =~ m/[Pp]erl/) {
    print "Found valid Perl content.  ++ the node.\n"
} 
else {
    print "Where's the beef?  -- that sucker.\n"
}
[download]