See File::Find::Rule, the synopsis has an example

  use File::Find::Rule;
  # find all the subdirectories of a given directory
  my @subdirs = File::Find::Rule->directory->in( $directory );
[download]

For future reference, new questions go in Seekers Of Perl Wisdom