@files = grep {"$path/$_" -D }readdir DIR;