perl -MJSON -le 'print encode_json({o=>JSON::true()})'
{"o":true}