while (defined($_ = $d->read)) { something($_); }