use CGI;
my $q = CGI::->new;
my %FORM = $q->Vars;