perl -e 'foreach $a (@INC){next if ($a eq ".");if(-d $a){@m = `nice find $a -name *.pm`;} map {s/^$a\/?(.*)\.pm$/$1/;s/\//::/g; push (@n,$_) if ($_!~/\.|-/);} @m; print @n;}'