Select Code to Download

while (<FOO>) {
   ...
}

while (not_the_end_of_the_file(*FOO)) {
   ...
}

while (defined ($_ = readline(*FOO))) {
   ...
}