use CPAN;
my @mod = CPAN::Shell->expand("Module","/./");
for my $mod (sort { $a->id cmp $b->id } @mod) {
    my $id = $mod->id;
    my $inst = $mod->inst_version;
    my $cpan = $mod->cpan_version;
    my $upgrade = CPAN::Version->vgt($cpan, $inst);
    next unless $upgrade;
    say "$id: $inst <=> $cpan";
}