next if ($name =~ /^(\.\.?)$)/);

##</code><code>##

next if ($name eq '.' or $name eq '..');