#!/usr/bin/perl  -ln

use strict;
use warnings;

BEGIN { @ARGV='find /home/modules -name "*.pm"|' }

local @ARGV=$_;
/sub user_method/ and (print $ARGV), last while <> ;

__END__