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