#!/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;
