perl -MJSON -e'print to_json {number=>1, string=>"1"}, {pretty=>1, canonical=>1}'