Select Code to Download

while ( <$handles[ 3 ]> ) {
  # do something with last line read
}

while ( defined( my $line = $handles[ 3 ]->getline ) ) {
  # do something with $line
}

frobnicate( $handles[ 3 ]->getline ) until $handles[ 3 ]->eof;

my $tmp = $handles[ 3 ];
while ( <$tmp> ) {
  # go crazy
}