#!/usr/bin/perl -w
use strict;
use Module::InstalledVersion;
my $m = Module::InstalledVersion->new($ARGV[0]);
if ($m->{version}) {
print "$ARGV[0] version is $m->{version}\n";
} elsif ($m->{dir}) { # directory but no version
print "$ARGV[0] doesn't seem to have a proper version\n";
} else {
print "Can't find $ARGV[0] in \@INC\n";
}