#!/usr/bin/perl -l

for (@ARGV) {
  (my $a.="$_.pm") =~s#::#/#g;
  eval {
    require $a;
  };
  print "$_: ",$@?"Not found":$INC{$a};
}

##</code><code>##

findmod LWP::Simple Mail::Sendmail

##</code><code>##

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

##</code><code>##

editmod LWP::Simple