Select Code to Download

 ...
while (<PLATTS>) {
...
           ...
          }
      ...

 ...
while (<PLATTS>) {
...
            }
         } ## END of first if statement.
      ...

    open my $fh_output,'>>',$output or die "can't open file: $!";
    open my $fh_input_file1,'<',$input_file1 or die "can't open file: 
+$!";
...
            }
    ...