This should be pretty easy to do with File::Find. In your wanted sub just open the file and count the lines. Store the number in a scalar declared outside of the sub and you should be all set. If there are really that many modules, it might take a bit to run though :) It should only take you a couple of minutes to write.
~Charlie
~Charlie