#!/usr/bin/perl -Tw

use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper qw(Dumper);
print header;


my $q = CGI->new();
my @data = $q->param('data');

if (param('data')) {
   print "you sent ", param('data');
}
else {
   print "error";
   ;
}

foreach my $href (@data) {
   foreach my $key (keys(%$href)) {
       print "key: $key, value: $href->{$key}\n";
   }
}