my @files=grep {$_ ne '.' && $_ ne '..'}
   @files=readdir(DIR);