perl -E'for (<*>) {say $_ if -d $_}'