Select Code to Download

foreach my $file (@lines) {
    open(my $fh, '<', $file) or die "$file: $!";
    ...
}

my $file = "junk.txt";
open (my $fh, '<',  $file) or die "Can't open $file for read: $!";
...
    push (@lines, $_);
}
close($fh) or die "Cannot close $file: $!";