#!/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]";

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>(.+)Conditions.&amp/) {
		print "$1- ";
	}
  	else {
		if ( $contents =~ /<title>(.+)<\/title>/) {
			my @parse = split(/:/,$1);
			print "$parse[0]-";
		}
	}

	if ( $contents =~ /<nobr><b>(.+)<\/b>&nbsp;(.+)F<\/nobr>/) {
		print " [$1°F\/";
	}
	if ( $contents =~ /<nobr><b>(.+)<\/b>&nbsp;(.+)C<\/nobr>/) {
		print "$1°C]";
	}
	if ( $contents =~ /<nobr>(.+)<\/nobr><\/span><\/td>/) {
		print " Humidity: [$1] ";
	}
	if ( $contents =~ /<nobr><b>(.+)<\/b>(.+)km\/h<\/nobr>/) {
		printf "Wind Speed: [$1 km/h]\n";

	}

} 

shit();

# weather script by [myg0t]MAKONG