perl -E "say for sort <./*/*.pm>" | grep -c .
4