my %args = ();

# get cgi parameters into a hash.  preserve multi-valued
# parms
for my $p ( $cg->param() )
{
	my @tmp = $cg->param($p);
	if ( scalar @tmp == 1 )   { $args{$p} = $tmp[0] }
	else                      { $args{$p} = [ @tmp ] }
}