look at the other fields on the hash returned by $dh->read, they probably contain enough information to let you filter out non file entries.