#!/usr/bin/env perl
use strict;
use warnings;
use 5.014;
use LWP::Simple;
use URI;
use JSON;
use Data::Printer;

my $key=$ARGV[0];

my $base = URI->new('https://api.forecast.io/forecast');

sub URI::path_segments_push {
    my ($uri,@segments) = @_;
    $uri->path_segments($uri->path_segments,@segments);
}

# home
$base->path_segments_push(
    $key,"51.54,-0.37",
);

my $content = get($base);

my $output = decode_json($content);
p $output;
