Select Code to Download

while (!eof(FILE1) && !eof(FILE2)) {
    my $line1 = <FILE1>;
    my $line2 = <FILE2>;
    ...

use strict;
use warnings;
...
line4
line5
line6