our $foo;

sub foo {
   my (...) = @_;
   ...
   $cgi->...
   ...
}

sub main {
   local $cgi = ...;
   foo(...);
}

main();