Select Code to Download

#!/usr/bin/env perl

...
my $data = decode_json('{ "val":false }');
print "readonly: ", readonly($data->{val}) ? 'yes' : 'no', "\n";
bless $data->{val};

$./try
readonly: no
Modification of a read-only value attempted at ./try line 10.