From the SYNOPSIS of File::Find::Rule

use File::Find::Rule;
# find all the subdirectories of a given directory
my @subdirs = File::Find::Rule->directory->in($hardPath);
[download]