#!/usr/bin/perl
for (@INC) {
  $d{$_} ||= do {
    push @inc, $_ unless $_ eq '.'; 1
  }
}
for (@ARGV) {
  s/::/\//g;
  system("find @inc -path '*$_.pm' 2>/dev/null | uniqo");
}