my $q = new CGI; #### $q = new CGI unless defined $q;