Select Code to Download

open NAME or die "Failed opening $NAME: $!\n";

while (<NAME>) {
    ...
}

for my $i (0 .. @array) {
    ...
}

for my $elt (@array) {
    ...
}