use WWW::Wunderground::API; 
#using the json API. 
my $wun = new WWW::Wunderground::API(location=>'KIAD', api_key=>'your wunderground API key'); 
 
print 'The temperature is: '.$wun->data->temp_f."\n"; 
print 'The rest of the world calls that: '.$wun->temp_c."\n"; #Keys are AUTOLOADed to $wun->data->$key for lazy typers. 
#print 'XML source:'.$wun->xml if $wun->api_type eq 'xml'; 
print 'JSON source:'.$wun->json if $wun->api_type eq 'json';

#location 
    my $wun = new WWW::Wunderground::API('Fairfax, VA'); 
 
    #or zipcode 
    my $wun = new WWW::Wunderground::API('22030'); 
 
    #or airport identifier 
    my $wun = new WWW::Wunderground::API('KIAD');