http://www.perlmonks.org?node_id=535385


in reply to how to get the all the subdirectories path from the directory

Another alternative is File::Find::Rule: 
use File::Find::Rule;
my @list = File::Find::Rule->in('/aa');
# OR
my @dirs_only = File::Find::Rule->directory()->in('/aa');

[download]

In Section Seekers of Perl Wisdom