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

##</code><code>##

  use File::Temp ();
  my $fh = File::Temp->new or die ...