>perl -MJSON -E  "say to_json({x=>33, params=>{'history'=>JSON::true},})"
{"params":{"history":true},"x":33}