Select Code to Download

while (<file1>){
   $line1=$_
...
      }
   }
}

while (<file1> or <file2>){ #The longest of the two files
   $line1=read ($file1);
...
   }
}