As a sidenote - it's probably not necessary in your case - for finding files in general (especially if they are spread into sub and subsub-directories in a tree), have a look at File::Find.
I am aware of that module, and have used it occasionally, but going to the encumbrance of importing a module and specifying callbacks spoils the fun of making the simplest one liner solution possible. :-)