Select Code to Download

#assume files a.txt and b.txt exist and are normal, readable files.
use strict;
...
   }
}
exit(0);

#...as before...
for(my $i=0;$i<2;$i++){
   my $fh=$FH[$i];      # <----**
   while(my $line=<$fh>){
#...as before...