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

foo( $fh );