opendir(THISDIR, ".");
@allfiles = readdir(THISDIR);
closedir(THISDIR);
print "@allfiles\n";

@allfiles = grep(!/^\.\.?$/, readdir(THISDIR));

@allfiles = grep(!/^\./, readdir(THISDIR));

@textfiles = grep(-T, readdir(THISDIR));
