opendir dirs, '.' or die "Couldn't open current directory: $!";
opendir dirs2, 'C:\\' or die "Couldn't open current directory: $!";
print dirs == dirs2, "\n";

while ($_ = (readdir dirs)) {
	print $_, "\n";
	if (-d $_) {
		print "This is a dir $_ \n";	
	}	
}