Select Code to Download

...
open (my $fh1, "+>", $output1) or die "Cannot open file '$output1': $!
+"; 
...

while (<$fh1>) {
...