perl -le'opendir D,".";print~~grep{-f}readdir D'