Select Code to Download

while (<FH>) {
...
}

while (defined ($_ = <FH>)) {
...
}

while (($_ = <STDIN>) ne "\n"){
...
}