@dirs = grep(!/^\.\.?$/, readdir(DIR));