Select Code to Download

open my $fh2, '<', '/tmp/mlist.txt' or die "unable to open file '$file
+' for reading : $!";
open my $fh9, '>', '/tmp/listk.txt' or die "unable to open file '$file
+' for reading : $!";
...
           }
           close $fh2;
           close $fh9;

open my $bpfh1, '<', \$forbpjoutput or die $!;
  while (<$bpfh1>) {
...
             }
          }