#!/usr/bin/perl
use strict;
use JSON;
my @data = <>;
my $json = JSON->new->decode(join('',@data));
while (my ($ind, $val) = each %$json) {
    printf "%s=%s\n", uc $ind, $val;
}