print header;


my $q = CGI->new();
my $json = $q->param('data');
my $decoded_json = decode_json( $json );;

print Dumper $decoded_json;