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