@files = grep { ! /^\.\.?$/ } readdir $DIR;