package MyModule;

use strict;

my $inc_dir = $INC{'MyModule.pm'};

$inc_dir =~ s!/MyModule.pm$!!;

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

1;