next if $file eq '.' or $file eq '..';

##</code><code>##

  next if $file eq File::Spec->curdir or $file eq File::Spec->updir;