use File::Find::Rule;

my $directory = "/home/Modules";
my @files = File::Find::Rule
            ->name(qr/\.pm$/)
            ->grep('user_method')
            ->in($directory);