#!/usr/bin/perl

use strict;
use warnings;
use JSON::PP;
use CGI;

my $json = JSON::PP->new->utf8;
#my $json_text = CGI->new->param('aws.json');
#my $perl_scalar = $json->decode( $json_text );

local $/;

open( my $fh, '<', 'aws.json' );
my $json_text = <$fh>;
my $perl_scalar = decode_json($json_text);

#print encode_json($perl_scalar);
print $json->utf8->encode($perl_scalar);