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