use strict;
use warnings;
use LWP::Simple; 
use XML::Simple;
 my $zipcode = '03054'; 
 my $site1 = get 'http://beta1.accuweather.com/beta1/dtwx_initialize.asp?zipcode='.$zipcode;
 my $DTWXSetup = XMLin($site1); 
 my $Location =  $DTWXSetup->{Location}; 
 my $UFDB = $Location->{UFDB};
 my $site2 = get 'http://beta1.accuweather.com/beta1/dtwx_curcon.asp?ufdb='.$UFDB;
 my $CurrentConditions = XMLin($site2);
 my $Temperature = $CurrentConditions->{Temperature};
 print "ZIP:$zipcode\nTemperature:$Temperature\n";
 XMLout();

##</code><code>##

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};