Select Code to Download

use strict;
use warnings;
...
   print $OF join("\t", @Rec1), "\n";
   last if eof($IF1) and eof($IF2);
}