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