opendir(DIRHANDLE,"c:/") || die "file to open";
for my $file (readdir DIRHANDLE) {
	print "$file\n" if (-d "c:/$file");
}
closedir(DIRHANDLE);