查找已经安装的perl模块

在网上找的一段代码，用来check系统上目前安装的模块：

#!/usr/bin/perl
use strict;
use ExtUtils::Installed;

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

foreach(@modules)
{
  my $ver = $inst->version($_) || "???";
  printf("%-12s --  %s/n", $_, $ver);
}
exit 0;