#!/usr/bin/env perl
use 5.012;
use warnings;
use JSON;

my $data = do "./$ARGV[0]" or die $@;
print JSON->new->utf8->canonical->encode($data);