查询perl内置了哪些模块...

刚刚看完小骆驼,学到模块这章想查询内置的模块倒腾了许久,最后发现竟然是章节后的练习题.......改进了一下,因安装了比较新的版本,所以按version分开查询,同时统计了数量,

#!/usr/bin/perl -w

use Module::CoreList;

my %modules8 = %{ $Module::CoreList::version{5.008} };
my %modules12 = %{ $Module::CoreList::version{5.012} };
my $length8 = keys %modules8;
my $length12 = keys %modules12;
print join "\n",keys %modules8;
print "\n5.08版本已经安装的模块数量是:$length8 \n要继续吗？(输入quit退出，任意键继续显示5.12版本内置模块列表):\n";
my $goon = <>;
chomp $goon;
if ($goon eq "quit") {
     print "that's the end for 5.008 modules lists \n";
                     }
else {
print join "\n",keys %modules12;
print "\n5.12版本已经安装的模块数量是:$length12 \n";
     }