while( my $dir_entry = $d->read() ) {
    something($dir_entry);
}