Select Code to Download

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

my $q = Module::new_CGI;

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