#!/usr/bin/perl -lw
use strict;
eval {
    require Class::Inspector;
    my $file = Class::Inspector->resolved_filename($ARGV[0]);
    unless ($file) {
	warn "not found\n";
	exit (1);
    }
    print $file;
    exit (0);
};
die unless 1 == @ARGV;
eval "require $ARGV[0]";
my $file = $ARGV[0];
$file =~ s#::#/#g;
$file .= '.pm';
print $INC{$file} || die "not found\n";