Select Code to Download

while ($line1 =<F1> || $line2= <F2>){
  foo($line1,$line2);
}

while (defined ($line1 = <F1>) and defined ($line2 = <F2>)) {
   ...
}