open ONE, $in1;
open TWO, $in2;
open foutname, ">$fout";