use LWP::Simple; 
use XML::Simple;
 my $zipcode = shift;
print XMLin(get 'http://beta1.accuweather.com/beta1/dtwx_curcon.asp?ufdb='.	 XMLin(get 'http://beta1.accuweather.com/beta1/dtwx_initialize.asp?zipcode='.$zipcode)->{Location}->{UFDB})->{Temperature};