File::Find will get us an entire directory tree ;-) ... so you should insert some 'prune' there :)

...wouldn't globing be good enough for this simple job? =)

sub subdirs {
  my $dir = shift;
  my @subd = ();
  for(<$dir/*>) {
     next unless -d;
     s".+/""; # lame 'basename' surogat :)
     push @subd, $_;
  }
  @subd;
}
[download]

.. IAE, it is indeed too much work for this ;)

--
AltBlue.