#!/usr/bin/perl

use strict;
use warnings;

use File::Find;
use File::Spec::Functions;
use CGI;

my $q = CGI->new;
print $q->header();

print "<h1>Perl 5 Modules</h1><br>";

my @modules;
find { wanted => sub { push @modules, canonpath $_ if /\.pm\z/ }, no_chdir => 1 }, @INC ;

@modules = sort { $a cmp $b } map {
    s/(.*)\/perl5\///g;
    s/(.*)\/lib\///g;
    s/(.*)\/blib\///g;
    s/^\.//g;
    s/^vendor_perl\///g;
    s/^cpan\/build\///g;
    s/^site_perl\/[0-9\.]*\///g;
    s/i386-linux-thread-multi\///g;
    s/^[0-9.]*\///g;
    s/\//::/g;
    s/.pm$//g;

    $_

} @modules;

foreach (@modules) {
    print $_, "<br />";
}