#!/usr/bin/env perl

use JSON;
use Encode;

my ($json) = @ARGV;

my $context;

open TXT, $json or die "Can't open $json!\n";
while (<TXT>) {
	$context .= $_;
}
close TXT;

my $obj    = decode_json($context);