Select Code to Download

while (my $line = <$file>) {
    chomp $line; # remove trailing end of line character
...
        }
    }
}

LINE: while (my $line = <$file>) {
    chomp $line;
...
    }
    print $line, "\n";
}