#!/usr/bin/env perl
use strict;
use warnings;
use CGI ();
use JSON::PP ();
use Data::Dumper;


$CGI::PARAM_UTF8=0;
my $q = CGI->new;
my $data = $q->param('POSTDATA');

my $json  = JSON::PP->new->utf8;
 
print $q->header("application/json");
print Dumper($data);