A different approach, using the Geo::Weather module:

#!/usr/bin/perl -w

use strict;
use Geo::Weather;
my $zip = shift || '02215';
print "Feels like " . Geo::Weather->new->get_weather($zip)->{heat} .
  chr( 176 ) . "F at $zip\n";
[download]

--sacked