use Geo::Weather;

  my $weather = new Geo::Weather;
 
  my $current = $weather->get_weather('19067');

  print "The current temperature is $current->{temp} degrees\n";