#!/usr/bin/env perl
 
use strict;
use warnings;
use JSON::XS;
use Data::Dump qw( dd );
use encoding 'utf8';
 
my $file = $ARGV[0];
if (!$file) {
  warn("Usage: x-json-parse FILE\n");
  exit(1);
}
 
open(my $fh, '<:utf8', $file);
die("ERROR: could not open file '$file'\n") unless $fh;
 
local $/;
my $json = <$fh>;
close($fh);
 
binmode(\*STDOUT, ':utf8');
eval {
  dd(decode_json($json));
};
die if $@;
 
exit(0);