With this neat and correct utility you will be able to list recursivelly all the .p[lm] files in the @INC, optionally with a regex in $ARGV[0].
Heart illness people please don't look to this. 8-)
This is util to me, and then the voice said: "Post it".
#!/usr/bin/perl
# Show the modules in @INC those full path
# matches $ARGV[0]
use File::Find;
foreach(@INC) { -d $_||next;$_ eq'.'?next:find(sub{
print $File::Find::name."\n" if /${ARGV[0]}.*\.p[lm]$/i;
}, $_) }