FAQ: Perl / CGI

Hur hämtar man alla underkataloger utan att behöva scanna entry för entry?

use File::Glob ':glob';
chdir "/path/";
my @subdirs = bsd_glob('*/', GLOB_MARK);