perl -MFile::Find -wle 'find(sub{print $File::Find::name if -d'},"/home/user"})'