Select Code to Download

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