Select Code to Download

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