my $q = CGI->new();
my $json = $q->param('data');
print Dumper $json;