Another way:

#!/sw/bin/perl

use strict;
use warnings;
use ExtUtils::Installed;
use Data::Dumper;

my ($inst) = ExtUtils::Installed->new();
print Dumper my (@modules) = $inst->modules( "all" );
[download]

Update: There's an even better way to do it with this script by toolic.