open( FH, '>', $filename ) or die $!;
my $ref2fh = \*FH;

foo( $ref2fh );

##</code><code>##

open( my $fh, '>', $filename ) or die $!;

foo( $fh );