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