@fools = grep { !/^\.\.?$/ } readdir(DIR);