use CGI;
my $c = new CGI;
use Bar ($c);

Bar::do_stuff();

package Bar;

my $cgi;
sub import
{
 $cgi = $_[1];
}

sub do_stuff
{
 $cgi->foo;
 #etc
}