perl查看已经安装的模块

use ExtUtils::Installed;

my $inst = ExtUtils::Installed->new();

my @modules = $inst->modules();

foreach (@modules)

{

	my $ver = $inst->version($_) || "???";

	printf( "%-12s --  %s\n", $_, $ver );

}

 原文：http://blog.sina.com.cn/s/blog_4af3f0d20100faph.html