#!/usr/bin/perl -w use lib '.'; use CGI; use File::Find; use strict; my $page = CGI->new; print $page->header, "\n"; print $page->start_html(-dtd=>'-//W3C//DTD HTML 4.0 Transitional//EN', -title=>"Perl Environment: $ENV{SERVER_NAME}"), "\n"; print $page->h1("Perl Environment: $ENV{SERVER_NAME}"), "\n"; print $page->p("Perl Version: $]"), "\n"; print $page->p("CGI.pm Version: $CGI::VERSION"), "\n"; print $page->p("Library Path (\@INC):"), "\n"; print $page->ul($page->li([@INC])), "\n"; print $page->p('Modules présents :'), "\n"; my @mods; my $list; my $dir; foreach $_ (@INC) { @mods = (); $dir = $_; find(\&wanted, $_); $list .= $page->ul($page->li("$dir"), $page->ul($page->li([sort @mods]))); } print $list, "\n"; sub wanted { return unless /\.pm$/; push @mods, $File::Find::name; }