如何才能知道自己装了哪些Perl模块？

如何才能知道自己装了哪些Perl模块？
复制内容到剪贴板
代码:
#!/usr/bin/env perl
# pminst -- find modules whose names match this pattern
# tchrist@perl.com
BEGIN { $^W = 1 }
use Getopt::Std qw(getopts);
use File::Find;
getopts('ls') || die "bad usage";
if (@ARGV == 0) {
@ARGV = ('.');
}
die "usage: $0 [-l] [-s] pattern/n" unless @ARGV == 1;
$pattern = shift();
$pattern =~ s,::,/,g;
no lib '.';
use vars qw($opt_l $opt_s);
for $startdir (@INC) {
find(/&wanted, $startdir);
}
sub wanted {
if (-d && /^[a-z]/) {
# this is so we don't go down site_perl etc too early
$File::Find::prune = 1;
return;
}
return unless //.pm$/;
local $_ = $File::Find::name;
($tmpname = $_) =~ s{^/Q$startdir/}{};
return unless $tmpname =~ /$pattern/o;
if ($opt_l) {
s{^(/Q$startdir/E)/}{$1 } if $opt_s;
}
else {
s{^/Q$startdir/}{};
s//.pm$//;
s{/}{::}g;
print "$startdir " if $opt_s;
}
print $_, "/n";
}