opendir (DH, "dir-name") or warn $!;
@list = readdir (DH);
closedir (DH);