while ( my $name = readdir( DIR )) {
    ...
}