#!/usr/bin/perl -w

use strict;
use Module::Info;

my $usage = <<USAGE;
$0 <module_name> - Locate the directory for a perl module
<module_name> - Name of perl module (required)

Copyright (C) 2001, Michael K. Neylon
USAGE

( print $usage and exit 0 ) if !$ARGV[0];
my $module = Module::Info->new_from_module( $ARGV[0] );
( print "Module $ARGV[0] not found\n" and exit 0 ) if !$module;

print $module->inc_dir, "\n";
exit 1;