Select Code to Download

#!/usr/bin/perl -w
use strict;
use Data::Dumper;
...
foreach (keys %{($json_text_decoded)}) {
    print " $_ = $$json_text_decoded{$_}\n";
}

$VAR1 = {
          'alertStates' => [
                             'OK'
...
 bool_three = false
 bool_one = false
 id = 559