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