#!/usr/bin/perl -T
use warnings;
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper qw(Dumper);
use JSON::MaybeXS qw/decode_json/;

my $q = CGI->new();
print $q->header;
my $data = $q->param('POSTDATA');
$data = decode_json($data) if $data;
print Dumper($data);