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

##</code><code>##

my $q = Module::new_CGI;

##</code><code>##

use Module;
use ModB;
use ModC;

my $m = Module->new();
my $mb = ModB->new($m);
my $mc = ModC->new($m);