use CGI;
my ($q,$INPUT);
undef %$q;
$q = new CGI;
$INPUT = $q->Vars;