open(my $fh, "+>", undef) or die ...