Take a look at File::Find::Rule. It has an interface that might work well for you.

From the docs:

# find all the .pm files in @INC
  my @files = File::Find::Rule->file()
                              ->name( '*.pm' )
                              ->in( @INC );
[download]

-Blake