opendir(ODIR,"c:/") || die "Cannot open this directory: $!"; 

while($name=readdir(ODIR)) { 
	print "## inside while\n";
	if(-d $name) { 
		print "## inside if \n";
#		...
#		...
	}
}