use warnings;
use strict;
use JSON::Whitespace ':all';

my $in = <<EOF;
{
            "animals":{
                    "kingkong":"🦍"
            },
            "baka":[
                    "ドジ"
            ],
            "fruit":{
                    "grape":"🍇"
            },
            "moons":{
                    "🌑":0
            }
    }
EOF
my $minify = json_minify ($in);
print $minify;