my $q=new CGI;

##</code><code>##

our $q=new CGI;

##</code><code>##

$main::q