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