perlmodver


1
2
3
4
5
6
7

#!/usr/bin/perl
use strict;
foreach my $module (@ARGV) {
  eval "require $module";
  printf("Can't find %s\n", $module) if $@;
  printf("%-20s: %s\n", $module, $module->VERSION) unless $@;
}