#!/usr/bin/env perl

use strict;
use warnings;
use JSON;
use Scalar::Util qw/ readonly /;

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