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