js.sh

#!/bin/env perl

use strict;
use warnings;

use JSON::MaybeXS qw(decode_json);

chomp( my $input = <STDIN> );

my $ref = decode_json( $input );

my $json = JSON::MaybeXS->new;
print $json->pretty(1)->canonical(1)->encode( $ref ) . "\n";