#!usr/bin/perl
use strict;
use warnings;
use ExtUtils::Installed;
my $inst = ExtUtils::Installed->new();
print join "/n", $inst->modules();
#!usr/bin/perl
use strict;
use warnings;
use ExtUtils::Installed;
my $inst = ExtUtils::Installed->new();
print join "/n", $inst->modules();
转载于:https://www.cnblogs.com/secbook/archive/2007/02/28/2655492.html