@FILES = grep !/^\.\.?$/, readdir DIRHANDLE;