while ( my $record = readRecord( ... ) ) { ... }