perl version -> plv.pl

gistfile1.txt

#!/usr/bin/env perl

use v5.14;
use strict;
use warnings;

our $VERSION = '0.03';
use English qw( -no_match_vars ); # Avoids regex performance penalty
local $OUTPUT_AUTOFLUSH = 1;

use CPAN;

printf("%-40s %10s %10s\n", "Module", "Installed", "CPAN");
foreach my $a (@ARGV) {
  foreach my $mod (CPAN::Shell->expand("Module", $a)){
    printf("%-40s %10s %10s %s\n",
      $mod->id,
      $mod->inst_version eq "undef" || !defined($mod->inst_version)
        ? "-" : $mod->inst_version,
      $mod->cpan_version eq "undef" || !defined($mod->cpan_version)
        ? "-" : $mod->cpan_version,
      $mod->uptodate ? "" : "*"
    );
  }
}