##

#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI qw(:standard);
use JSON;
use Data::Dumper;

my $q = new CGI;
print $q->header("application/json");

my $data = decode_json($q->param('dataString'));

print Dumper $data;