#!/usr/bin/perl
use strict;
use File::Spec;

my $module = shift @ARGV;
$module=~s,\.,,igs;
my $pm=$module.'.pm';
my @path = split(/::/,$pm);
my $found = 0;
foreach my $dir (@INC) {
	my $file = File::Spec->catfile($dir,@path);
	if(-f $file) {
		print $file,"\n";
		$found=1;
	}
}
exit(!$found);