目前裝的 module

#!/usr/bin/perl
use ExtUtils::Installed;
my $inst = ExtUtils::Installed->new();
my @modules = $inst->modules();
for (sort @modules)
{
print $_,"\n"
}