perl json han 2

gistfile1.txt

#!/usr/bin/env perl

use utf8;
use strict;
use Encode;
use JSON;

binmode(STDOUT, ":utf8");

my ($line, $content, $perl_hashref, %perl_hash, $key, $json);

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

$content = Encode::encode_utf8($content);
$perl_hashref = decode_json($content);
%perl_hash = %{$perl_hashref};

for $key (sort keys %perl_hash){
  print $key . " : " . $perl_hash{$key} . "\n";
}

exit;