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