It looks like it just greps perl files for ^/s+use but that grabs stuff in documentation sections.
It looks like it should be a little more sophisticated and not count things it finds between: =begin sdf and: =cut at least looking at one file I'm looking at. Maybe someone else knows more about how that works.
