use JSON qw/encode_json decode_json/ ;

use Encode;

my $data = [

     {

         'name' => 'Ken' ,

         'age' => 19

     },

     {

         'name' => '测试' ,

         'age' => 25

     }

];

print encode_utf8("'name' => '测试'");

print "\n";

my $json_out = encode_json ( $data );

print $json_out;

print "\n";

encode_json  

    $json_text = encode_json $perl_scalar

Converts the given Perl data structure to a UTF-8 encoded, binary string.  

This function call is functionally identical to:  

    $json_text = JSON->new->utf8->encode($perl_scalar)  

encode_json 会对给定的Perl的数据结构转换为一个UTF-8 encoded, binary string.