my @files = grep { $_ !~ /^\.\.?$/ } readdir $dir;