opendir DH, "/foo/bar" or die $!;
    my @subdirs = grep -d, readdir DH;
    closedir DH or die $!;