#!/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;
}, $_) }