Select Code to Download

#!/usr/bin/perl -T
use warnings;
...
my $data = $q->param('POSTDATA');
$data = decode_json($data) if $data;
print Dumper($data);

#!/usr/bin/perl
use warnings;
...
    Content => encode_json($data) );
my $response = $ua->request($request);
print $response->content, "\n";

$VAR1 = {
          'data' => [
...
                      }
                    ]
        };