opendir dirs2, "D:/" or die "Could not open directory: $!";

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