#!/usr/bin/perl -w

# $Id: version.pl,v 1.2 2003/05/14 19:44:28 jonasbn Exp $

use strict;

my $modulename = shift;

my $modulepath = $modulename;

if ($modulepath =~ m/::/) {
	$modulepath =~ s[::][/]g;
	require "$modulepath.pm";
} else {
	undef $/;
	open(FIN, "<", $modulepath) || die ("Unable to open file $modulepath");
	my $module = <FIN>;
	close(FIN);
		
	($modulename) = $module =~ m/package (.*);/;
	require "$modulepath";
}

my $str = '$'.$modulename.'::VERSION';
print "$modulename is version: ";
print eval($str); 
print "\n";