opendir(root, "x:\\");
while ($files = readdir(root)) {
if ($files >= 1) {
print "$files\n";
}
}
closedir(root);
exit;