#!/usr/bin/perl -w

use strict;

foreach (sort { lc($a) cmp lc($b) } map { `cd $_ && find . -name '*.pm'` } @INC) { s/^\.\/(.*)\.pm$/$1/; s/\//::/g; print; }