package My::CGI;

use CGI;
my $cgi;

sub cgi {
    $cgi ||= CGI->new();
    return $cgi;
}
__END__
# use this way:
use My::CGI;
my $cgi = My::CGI->cgi();