Select Code to Download

my $json = { 'username' => 'foo',
             'password' => 'bar',
...
if ($response->is_success) {
    $content = $response->content;
}

my $input  = $PARMS{inputparms};
print qq{Content-type: application/json; charset=utf8\n\n};
...
    my $in = from_json( $input, {utf8 => 1} );
    my $jsonDecode = encode_json($in);
    print "$jsonDecode\n";