use File::Find::Rule;

my $path = 'lib';
my @files = File::Find::Rule->file()
                            ->name('*.pm')
                            ->in($path);