#!/usr/bin/perl -l
$_=shift;
($_.=".pm")=~s#::#/#g;
eval { require $_ };
exec("vi",$INC{$_}) unless $@;
print "Module not found"