#!/usr/bin/perl
use Geo::Weather;
my $weather = new Geo::Weather;
$weather->get_weather('Philadelphia','PA');
print $weather->report();
####
Philadelphia, Pennsylvania
Mostly Cloudy
Temp | 37° F |
Wind | From the West at 15 mph |
Dew Point | 18° F |
Rel. Humidity | 39% |
Visibility | unlimited |
Barometer | 30.25 inches |
Sunrise | 7:14 am |
Sunset | 5:16 pm |
##
##
use Geo::Weather;
my $weather = new Geo::Weather;
my $current = $weather->get_weather('19067');
print "The current temperature is $current->{temp} degrees\n";
##
##
The current temperature is 35 degrees