perl -MFile::Find -le '
for $inc (@INC) {
  find(sub {
             return unless /pm$/;

             ($module = $File::Find::name) =~ s!^$inc/!!;
             $module =~ s!/!::!g;
             $module =~ s/.pm$//;

             print $module
           },
       $inc)
}'