#!/usr/bin/perl -w
use strict;
use Data::Dumper;
use JSON;

# sample json data
my $json_text = <<END;
{
  "id": 559,
  "bool_one": false,
  "bool_two": false,
  "bool_three": false,
  "alertStates": ["OK"]
}
END
my $json_text_decoded = decode_json $json_text;
print Dumper $json_text_decoded ;
print "\n$json_text_decoded\n";
foreach (keys %{($json_text_decoded)}) {
	print " $_ = $$json_text_decoded{$_}\n";
}

##</code><code>##

$VAR1 = {
          'alertStates' => [
                             'OK'
                           ],
          'bool_two' => bless( do{\(my $o = 0)}, 'JSON::PP::Boolean' ),
          'bool_three' => $VAR1->{'bool_two'},
          'bool_one' => $VAR1->{'bool_two'},
          'id' => 559
        };

HASH(0x100873888)
 alertStates = ARRAY(0x1008739c0)
 bool_two = false
 bool_three = false
 bool_one = false
 id = 559