use warnings;
use strict;

use Data::Dumper;
use JSON;

my $json = '{"true": true, "false": false}';
my $perl = decode_json $json;

print Dumper $perl;

my $t = $perl->{true};
my $f = $perl->{false};

print "orig true:  $perl->{true}, var true: $t\n";
print "orig false: $perl->{false}, var false: $f\n";


__END__

$VAR1 = {
          'false' => bless( do{\(my $o = 0)}, 'JSON::PP::Boolean' ),
          'true' => bless( do{\(my $o = 1)}, 'JSON::PP::Boolean' )
        };

orig true:  1, var true: 1
orig false: 0, var false: 0