in reply to How to list all the subdirectories in a directory

Path::Class to the rescue! Or to the usage...? 

my $parent = Path::Class::Dir->new("/some/dir/path");
my @sub_dirs = grep { $_->is_dir } $parent->children;

[download]

In Section Seekers of Perl Wisdom