Perl Encode_json Example