If you use these values (e.g. in print, if or mathematical calculation), these will work as 0 or 1

UPDATE:

# perl -MJSON::XS -e '$x = q/{"bool":true}/;$y=decode_json($x);print "
+$y->{bool}\n"'
1
[download]