@dir0 = (readdir(ID) || 1); # assuming print doesn't fail