for path in `perl -e 'print join "\n", @INC'`; do
find $path -name "*.pm"|perl -pe "s|$path/||;s|/|::|g;s/\.pm$//;"
done |uniq