forecast-file.pl


1
2
3
4
5
6
7
8
9
10

#!/usr/bin/env perl 
use strict;
use warnings;
use 5.014;
use WebService::ForecastIo::Response;
use Path::Class;
use Data::Printer;
 
my $res = WebService::ForecastIo::Response->new(file($ARGV[0])->slurp);
p $res;