push (@ORDNER, $File::Find::name) if -d and $_ !~ /^\.\.?$/;