use LWP::Simple;   

my $url = 'http://yahoo.com';

my $content = get $url;
die "Couldn't get $url" unless defined $content;

#print $content;  # you don't want to do this, but you may want to print it to a file 

if($content =~ m/weather/i) {
    print "They have weather information!\n";
}
else {
    print "They do not have weather information.\n";
}

WaitForKey();

sub WaitForKey() {
    print "\nPress any key to continue...";
    chomp($key = <STDIN>);
}