可以用下面的程序测试一下
#!/usr/local/bin/perl -w
# 安装和使用办法
# 建立一个新目录，比如env
# 修改这个目录的属性为755
# 用ASCII上传这个程序到你的这个新目录下面
# 修改这个程序的路径为 755
# 在你的浏览器中输入:
# http://你的站点/env/ms-env.cgi
# 就能看到你的站点都支持些什么
use lib '.';
use CGI;
use File::Find;
use strict;
my $page = CGI->new;
print $page->header, " ";
print $page->start_html(-dtd=>'-//W3C//DTD HTML 4.0 Transitional//EN', -title=>"Perl 环境测试: $ENV{SERVER_NAME}"), " ";
print $page->h1("Perl 环境测试: $ENV{SERVER_NAME}"), " ";
print $page->p("Perl 版本: $]"), " ";
print $page->p("CGI.pm 版本: $CGI::VERSION"), " ";
print $page->p("路径 (@INC):"), " ";
print $page->ul($page->li([@INC])), " ";
print $page->p('已经安装的库:'), " ";
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, " ";
sub wanted {
return unless /.pm$/;
push @mods, $File::Find::name;
}
