perl installed modules

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

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

for (@modules){
        my $ver = $inst->version($_) || q{};
        printf("%-12s --  %s\n", $_, $ver);
}

__END__