Select Code to Download

use strict;
use warnings;
...
 my $Temperature = $CurrentConditions->{Temperature};
 print "ZIP:$zipcode\nTemperature:$Temperature\n";
 XMLout();

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