Select Code to Download

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

  local $/ ;
  while (1) {
...
    last if (!defined($line1) && !defined($line2)) ;
    foo($line1, $line2) ;
  } ;