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

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

main();