package Foo;
use CGI;
my $q = CGI->new();  # file upload (read from STDIN occurs at this point
Bar::do_stuff(\$q);

package Bar;

sub do_stuff {
  my $q_ref = shift;
  my $uf = $$q_ref->upload(.....