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