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

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