my $p = new CGI;
my %in = map { $_ => $p->param($_) } $p->param;
print header;
print Dumper(%in);