rename $file, "$file.old";
open (IN, "<$file.old");
Open (OUT, ">$file");