my $q = CGI->new();

##</code><code>##

my $obj->{'q'} = CGI->new();