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