Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 13 lines (9 sloc) 272 Bytes
#!/usr/bin/env perl
use strict;
use warnings;
use Weather::Google;
my $weather = Weather::Google->new(shift || '02144');
my $days = $weather->forecast_conditions;
for my $day (@$days) {
print "[$day->{day_of_week}] $day->{low}-$day->{high}: $day->{condition}\n";
}