use strict;
use warnings;
use CPANPLUS;

my $c = CPANPLUS::Backend->new();

my %seen;
for my $m ($c->installed()) {
    next if $seen{$m->package}++;
    print $m->package(), "\t\t", $m->version(), $/;
}