open (TEMPOUT,">$outfile") or die "opening $outfile: $!\n";