比较两个json是否等价（perl版）

gistfile1.pl

#! /usr/bin/env perl
use warnings;
use strict;
use utf8;

use JSON::XS;
use Data::Compare;
use Path::Class;

my ($a_json, $b_json) = @ARGV;
my $coder = JSON::XS->new->latin1;

chomp (my $a = file($a_json)->openr->getline);
chomp (my $b = file($b_json)->openr->getline);

print Compare($coder->decode($a), $coder->decode($b)) ? "Identical\n" : "Not Identical\n";