#!/usr/bin/perl
#usage $0 Some::Module 
($f=($m=shift).".pm")=~s{::}{/}g;
eval "require $m" and print $INC{$f},$/;

#1liner 
# perl -e '($f=($m=shift).".pm")=~s{::}{/}g; \ 
#   eval "require $m" and print $INC{$f},$/' File::Find 

#also 
#perldoc -l Some::Module