Try running find2perl with the find options of your choice. For instance:

find2perl . -depth -name 'foo.pl' -print
[download]

Save the results to a file and edit the sub "wanted" as desired to perform whatever function you want it to.

I've given you enough to push you in the right direction so you can come up with the rest of the solution on your own! ;-)