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

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

##</code><code>##

while (<c:/*>) { 
	if (-d) { print "$_ is a directory\n" } 
	else { print "$_ is a file\n"; } 
}