$ perl -MFile::Find -le ' find { follow => 1, wanted => sub{ print $File::Find::name if $File::Find::name =~ /strict\.pm$/ || $File::Find::name =~ /Data\/Dumper\.pm$/; }}, @INC; ' /usr/lib/perl/5.8/Data/Dumper.pm /usr/share/perl/5.8/strict.pm