Select Code to Download

#!/usr/bin/perl
  use Geo::Weather;
...
  $weather->get_weather('Philadelphia','PA');

  print $weather->report();

<font size=+4>Philadelphia, Pennsylvania</font><br>
<img src="http://image.weather.com/weather/wx_icons/PFMScurrent/28.gif
+" border=0>
...
<tr><td><b>Sunrise</b></td><td>7:14 am</td>
<tr><td><b>Sunset</b></td><td>5:16 pm</td>
</table>

  use Geo::Weather;

...
  my $current = $weather->get_weather('19067');

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

The current temperature is 35 degrees