my(@dir, @other) = part [ -d, ! ] readdir DM;