my $q = new CGI;
...
q =  new CGI;