#!/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";
}