Select Code to Download

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

foo( $ref2fh );

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

foo( $fh );