opendir(D, "/");
for (readdir(D)) { print "got: $_\n" }
closedir(D);