perl json decode

gistfile1.txt

#!/usr/bin/perl

use strict;
use warnings;
use JSON (decode_json);
use Data::Dumper;
use utf8;

$content = qq/ {"Name":"Sangyong Gwak","성명":"곽상용"} /;
print $content;
print "\n" . " ---- ---- ---- ----" . "\n";


#my $perl_hash=decode('UTF-8', $content);
#my $perl_hash = decode_json($content);
my $perl_hash = JSON->new->utf8->decode($content);
print Dumper $perl_hash;

exit;