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