Select Code to Download

my $json = to_json( { myData => \@AoH } );
 
...
my $response = $ua->request($request);

print $response->content, "\n";

print header;

...
my $decoded_json = decode_json( $json );;

print Dumper $decoded_json;