$VAR1 = bless( {
                 '_protocol' => 'HTTP/1.1',
                 '_content' => '{"array":[1,2,3,4],"head":"Json Test Data","lang":["perl","ruby","php"],"日本語":["漢字","ひらがな","ｶﾀｶﾅ"]}',
                 '_headers' => bless( {
                                        'yb-application-token' => 'XXXXX',
                                        '::std_case' => {
                                                          'yb-application-token' => 'Yb-Application-Token'
                                                        },
                                        'user-agent' => 'Mojolicious (Perl)',
                                        'accept' => '*/*',
                                        'content-type' => 'application/json',
                                        'host' => 'www21051ue.sakura.ne.jp:8888',
                                        'content-length' => '125',
                                        'accept-encoding' => 'gzip'
                                      }, 'HTTP::Headers' ),
                 '_method' => 'POST',
                 '_uri' => bless( do{\(my $o = '/index.cgi')}, 'URI::http' )
               }, 'HTTP::Request' );
--------------------------------------------------------------------------------
[keywords] => [{"array":[1,2,3,4],"head":"Json]