use strict;
use warnings;
use CGI;
my $q = new CGI;
@names = $q->param;
foreach $name(@names){
	$$name=$q->param($name);
	#print $name, ': ', $$name, '<BR>';
}