...
  open( ATTA, ">$tempfile" ) || die "Can't open $tempfile: $!";
  binmode ATTA;

  rename $tempfile, "tempdir/".$new_filename or die "Cannot rename file: $!"; }
  
  while ( <$attach> ) {
...