find2perl /tmp -type d