my @modparts = split(/::/,$module);
my $modfname = $modparts[-1];

my $modpname = join('/',@modparts);
my $modlibname = (caller())[1];
my $c = @modparts;
$modlibname =~ s,[\\/][^\\/]+$,, while $c--;  # Q&D basename
my $file = "$modlibname/auto/$modpname/$modfname.$dl_dlext";