Quick script to present pretty printed JSON from a GET request

#!/usr/bin/perl
use perl5i::2;
use LWP::Simple;
use JSON;

my $data = get(shift) || die("Failed to get URL $!");
my $json = JSON->new->allow_nonref;
say $json->pretty->encode( $json->decode( $data ) );