#JSON
my $json = new JSON;

my %json_text = %{ $json->decode($content) };

while (my ($key, $value) = each %json_text) {
     print "$key = $value\n";
	 } 

close $output_fh;