## bareword open
open(FH, "yourfile") or die("oops - $!");
func_call( *FH );

## variable open
open(my $fh, "yourfile") or die("oops - $!");
func_call( $fh );

sub func_call {
  my $fh = shift;

  do_stuff($_) while <$fh>;
}