Lave liste over mapper

Jeg har et script som lister navne op på filerne i et bestemt bibliotek/mappe/directory (kært barn har som bekendt mange navne).

Det ser ud som følger:

$dir = "./afd/ref/bestmdr/";

if ($handle = opendir($dir)) {

  $filearray = array();

  while (false !== ($file = readdir($handle))) {

      if ($file != "." && $file != "..") {

          $filearray[$file] = filectime($dir.$file);

      }

  }

  closedir($handle);

}

arsort($filearray);



echo "<b>Referater fra bestyrelsesmøder</b><br><br>";



foreach ($filearray AS $filename => $datetime) {

    echo "<a href=\"".$dir.$filename."\" target=\"_blank\">".$filename."</a><br>\n";

}

Nu vil jeg i stedet gerne have et script, som viser hvilke undermapper der er i den mappe jeg står i.
How to do ???