sub get_dirlist {
  my $dir_to_scan = shift;

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

  find( $wanted, $dir_to_scan );

  return @dirlist;
}