#!/usr/bin/perl
for my $mod (@ARGV) {
    $mod =~ s{::}{/}g;
    for my $dir (@INC) {
        $f = "$dir/$mod.pm";
        print "$f\n" if -e $f;
    }
}