#!/usr/bin/perl -l

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