Select Code to Download

#I made this change first...
-  1 while(readline($data[$i]->{FH}));
+  while(readline($data[$i]->{FH})){
+      1;
+  };

main::(./overlay.pl:5): die("usage: overlay file1 file2\n") unless sca
+lar @ARGV
== 2;
...
main::(./overlay.pl:13):          seek($data[$i]->{FH}, 0, 0);
  DB<1> n
main::(./overlay.pl:7): for(my $i=0; $i < scalar @ARGV; $i++){

...
main::(overlay.pl:9):     while(readline($data[$i]->{FH})){
...
main::(overlay.pl:10):        1;
  DB<1> n
...