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

foo( $ref2fh );