my $q = new CGI;
my %$v = %{$q->Vars};