open F1, ">$file1" or die "Cannot open file $file1 \n";
open F2, ">$file2" or die "Cannot open file $file2 \n";


while ( <F1>, <F2> )
{
	$f1 = $_;
        $f2 = $_;