#get content from URL and check something, using "get" function.
use LWP::Simple;   # need to download LWP module from CPAN and install etc..

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

##### main get function, simple perl, love it #######
my $content = get $url;
die "Couldn't get $url" unless defined $content;
#####################################################

#print $content;  # you don't want to do this
# Then go do things with $content, like this:
if($content =~ m/weather.yahoo.com/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>);
}