#!/usr/bin/perl

use warnings;

my $pm = $ARGV[0];

if (!$pm) {
	print "Usage: readpm Module\n";
	exit;
}

eval {
	eval "require $pm";
};

if ($@) {
	print "$@";
	exit;	
}

$pm = join "/", (split /::/, $pm);
$pm = $pm . ".pm";

my $pathpm = $INC{"$pm"};

if ($pathpm) {
	system ("vim -R $pathpm");
} else {
	print "Could not find the module $pm\n";
}