my @files = grep { warn "Checking '$_' for -d:" . -d $_; !-d $_} readdir(DIR);