#!/usr/bin/perl 

use strict;
use warnings;
use File::Spec::Functions;

die "Usage: $0 <module> [<modules>]\n" unless @ARGV;

($\,$,)=("\n")x2;

for my $mod (@ARGV) {
    print "Searching for `$mod':";
    $mod =~ s{::}{/}g;
    $mod .= '.pm';
    
    my @results=grep -f, map {catfile $_, $mod} @INC;
    warn "`$mod' not found\n" and next unless @results;
    print @results, '';
}

__END__

##</code><code>##

C:\temp>perl -MFile::Find -le "print $INC{'File/Find.pm'}"
C:/Programmi/Perl/lib/File/Find.pm