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";