my $fh; open($fh, "...") or die ...; return $fh;