#!/usr/bin/perl
use Weather::Google;
 
# If you plan on using locations with non-ASCII characters
use encoding 'utf8';
 
my $gw;
 
## Initialize the module
$gw = new Weather::Google('Singapore'); # City name
 
## Get some current information
 
my @info;
@info = $gw->current('temp_f','temp_c','humidity','wind_condition');
 
## Forecast
 
print "Today's high: ", $gw->forecast(0,'high'),"\n";
print "Today's low: ", $gw->forecast(0,'low'),"\n";
 
## Forecast information:
my $info = $gw->forecast_information;
print "Zip: " . $info->{postal_code}."\n";
 
3) Execute the code using perl googleweather.pl

$ perl googleweather.pl
Today's high: 90
Today's low: 77
Zip: Singapore

 ppm install Weather-Google