my @dots = grep { /^\./ } readdir(DIR);