sub new_CGI { defined $Module::CGI or $Module::CGI = CGI->new(); return $Module::CGI; }