Perl> use JSON; Perl> Perl> my $json = More? JSON->new->allow_nonref->allow_unknown->allow_blessed->pretty(1); Perl> my $data3; Perl> $data3->{"num"} = "3"; Perl> my $addr = $data3->{"num"} + 7; Perl> my $body3 = $json->encode($data3); Perl> print $body3; { "num" : "3" } Perl> print $JSON::VERSION; 2.90 Perl> exit