#!/usr/bin/perl

 use strict;
 use CGI qw(:standard);
 use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

 use ExtUtils::Installed;

     my (@modules, @versions) ;
     my $inst = ExtUtils::Installed->new();

      foreach my $module ($inst->modules()) {
         my $version = $inst->version($module) || "???" ;
         push ( @modules,$module );
         push (@versions,$version);
       }

     my $cgi=new CGI;

     print $cgi->header;
     print $cgi->start_html( -title=>"List of Modules",
                             -bgcolor=>"lightyellow"  );

      print $cgi->start_form(-name=>'modules',
                         -action=>'list_modules.cgi');

    print $cgi->center($cgi->h1($cgi->u("<i>List of Installed Modules</i>")));

      for (my $i=0 ; $i<= $#modules ; $i++)
       {
         print $cgi->b(" $versions[$i] " );
         print $cgi->b(" $modules[$i] <br> ");

       } 

    print $cgi->end_form;
    print $cgi->end_html;