>perl -wMstrict -le
"opendir my $dh, '.' or die qq{opening .: $!};
 while (defined(my $dname = readdir $dh)) {
   next unless { -d $dname };
   print qq{dir '$dname'};
   }
"
Odd number of elements in anonymous hash at -e line 1.
dir '.'
Odd number of elements in anonymous hash at -e line 1.
dir '..'
Odd number of elements in anonymous hash at -e line 1.
dir '10001fr.equ'
Odd number of elements in anonymous hash at -e line 1.
dir '10002fr.equ'
...
Odd number of elements in anonymous hash at -e line 1.
dir 'Wrap_Simple.pm'
Odd number of elements in anonymous hash at -e line 1.
dir 'Wrap_Simple.pm.bak'
Odd number of elements in anonymous hash at -e line 1.
dir 'xxxx'