# Find all sub-dirs of $dir
opendir DIR, $dir or die "yaddah:$!";
@subdirs = grep { -d } readdir(DIR);

##</code><code>##

use File::Find; 
find( sub { 
       -d && print $File::Find::name, "\n";
      }, 
      $dir );

##</code><code>##

      -d $File::Find::name && print $File::Find::name, "\n";