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

##</code><code>##

    use File::Spec qw/curdir updir/;
    next if $file eq curdir() or $file eq updir();