use File::Find;
my @m;
find(sub {if ($File::Find::name =~ m/^\Q$File::Find::topdir\E\/(.+)\.pm$/i) { $_ = $1; s/\//::/g; push (@m, $_); }}, @INC);
$, = "\n";
print sort @m;