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"
}