I've enjoyed using File::List. It follows symbolic links.

use File::List;
my $root= shift;
my $search = new File::List($root);
$search->show_only_dirs();
print "$_\n" for @{ $search->find() };
[download]

It should work perfectly the first time! - toma