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