#!/usr/bin/perl

use JSON::XS;
use File::Slurp qw/slurp read_file write_file/;

my $json = read_file(shift(), {binmode=>':utf8'});

my $prj = decode_json $json;