mkpath("$DestDir$dir", 0, 0775);
if ( !-d "$DestDir$dir" || !chown($Uid, $Gid, "$DestDir$dir") ) {
die("Failed to create or chown $DestDir$dir");
mkpath("$DestDir$dir", 0, 0775);
if ( !-d "$DestDir$dir" || !chown($Uid, $Gid, "$DestDir$dir") ) {
die("Failed to create or chown $DestDir$dir");