package MyModule;

use strict;

my $inc_dir;

LOOP:
foreach my $inc (@INC)
{
	opendir(DIR, $inc) or next;
	while (my $module = readdir(DIR))
	{
		if ($module eq 'MyModule.pm')
		{
			$inc_dir = $inc;
			closedir(DIR);
			last LOOP;
		}
	}
	closedir(DIR);
}

print "MyModule found at: $inc_dir\n";

1;