my $line = <FILE>;
  while( defined $line ) {
  ..
  }