What a wonderful excuse to use the new and oh so shiny File::Find::Rule

use File::Find::Rule;

my @dirs = find(directory => , in => shift @ARGV);
[download]

That will find all the subdirectories the given directory.
HTH

_________
broquaint