opendir dirs2, "D:" or die "Couldn't open directory: $!";

while ($_ = (readdir dirs2)) 
{
   if (-d $_)
   {
      print "Directory: $_\n";
   }
}