(my $strippedShareDest = $In{shareDest}) =~ s/^\///;
substr($targetFile, 0, length($pathHdr)) = "/$In{pathHdr}/";
$targetFile =~ s{//+}{/}g;
(my $strippedShareDest = $In{shareDest}) =~ s/^\///;
substr($targetFile, 0, length($pathHdr)) = "/$In{pathHdr}/";
$targetFile =~ s{//+}{/}g;