perl -MFile::Find -wle 'find(sub{print $File::Find::name if -d'},"/hom
+e/user"})'
[download]

-enlil