my $module_fn= $INC{'MyModule.pm'};
my ($vol, $dir, $fn)= File::Spec->splitpath($module_fn);
my $the_modules_file= $dir.'myfile';