#!/usr/bin/perl -w
my $bad = 0;
unless (@ARGV) 	{
    die "usage: $0 module ...";
} 
foreach $file (@ARGV) {
    my $found = 0;
    $file =~ s!::!/!g;
    foreach $path (@INC) {
	if (-f ($fpn = "$path/$file") ||
	    -f ($fpn = "$path/$file.pm"))
	{
	    print "$fpn\n";
	    $found++;
	} 
    } 
    unless ($found) {
	warn "$0: $file not found\n";
	$bad++;
    } 
} 

if ($bad) {
    exit 1;
} else {
    exit 0;
}