Ach komm schon.
Mit File::Find den Baum hoch-und-runtersausen, aus der gefundenen .pm-Datei den Namen nach package .... extrahieren und ausgeben ;)