perl -MFile::Find::Rule -e '$,="\n";print File::Find::Rule->directory->in( "." )'