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

##</code><code>##

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