Help for this page

Select Code to Download

Select or download this

while (!eof(USER1) and !eof(USER2)) {
    my $line1 = <USER1>;
...

    . . .
}