Stuff

#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request;


my $browser = LWP::UserAgent->new;
my $URL = "http://www.wunderground.com/cgi-bin/findweather/getForecast?query=$ARGV[0]";
my $content = 0;

sub shit()
{
	my $request = HTTP::Request->new(GET => $URL);
	my $response = $browser->request($request);
	if ($response->is_error()) {printf "%s\n", $response->status_line;}
	$contents = $response->content();
	if ( $contents =~ /<title>(.+)<\\title>/) {
		print "$1\n";
	}

}

shit();