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