Select Code to Download

open my $bpl_fh, '<', '/tmp/bpl.txt' or die $!;
chomp(my @words = <$bpl_fh>);
...
 }
print $fh2 "$_\n" foreach @lines;
close $fh2;

chomp(my @words = @bpl);

...

 }
print "$_\n" foreach $item;