use FileHandle;
sub f1 { my $handle=shift; ... }
sub f2 { my $handle=shift; ... }
my $fh=FileHandle->new();
...
f1($fh);
f2($fh);