use strict;
use Data::Dumper;

my $obj = do_sub();
print Dumper $obj;

my $cgi = new CGI;
print Dumper $cgi;

sub do_sub { use CGI; return new CGI; }