#!/usr/bin/perl
  use Geo::Weather;

  my $weather = new Geo::Weather;

  $weather->get_weather('Philadelphia','PA');

  print $weather->report();


##</code><code>##

<font size=+4>Philadelphia, Pennsylvania</font><br>
<img src="http://image.weather.com/weather/wx_icons/PFMScurrent/28.gif" border=0>
<font size=+3>Mostly Cloudy</font><br>
<table border=0>
<tr><td><b>Temp</b></td><td>37&deg F</td>
<tr><td><b>Wind</b></td><td>From the West at 15 mph</td>
<tr><td><b>Dew Point</b></td><td>18&deg F</td>
<tr><td><b>Rel. Humidity</b></td><td>39%</td>
<tr><td><b>Visibility</b></td><td>unlimited</td>
<tr><td><b>Barometer</b></td><td>30.25 inches</td>
<tr><td><b>Sunrise</b></td><td>7:14 am</td>
<tr><td><b>Sunset</b></td><td>5:16 pm</td>
</table>


##</code><code>##

  use Geo::Weather;

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

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

##</code><code>##

The current temperature is 35 degrees