my $q = new CGI;
my %in = map { $_ => $q->param($_) } $q->param;
    for (keys %in) {
	 $_ = "";
 }