my @dirlist;

sub wanted {    
  return unless -d $_;
  push(@dirlist,$File::Find::name);
} 

sub get_dirlist {
  my $dir_to_scan = shift;
  find( \&wanted, $dir_to_scan );
  return @dirlist;
}