if (-d and $_ ne '.' and $_ ne '..') {