my $q = new CGI;
$q->param( $_ => undef ) for $q->param;