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;

##</code><code>##

#!/usr/bin/perl -w

# Test MyModule.pm

use strict;

use MyModule;

print "Done.\n";