Select Code to Download

open (my $FH, '<', "bindo1061990A.txt") || die "Cannot open bindo10619
+90A,txt: $!";

my @lines = <$FH>;
...
for my $line (@lines) {
    say $line;
}