perl -MFile::Find::Rule -E"say for File::Find::Rule->maxdepth(1)->file->empty->in('.');"