$cmd = "md \"$target\\$date\\$currentHost\\$currentDirectory\""; 
$res = `$cmd`;
if ($debug) {print "\n[Command is :: ", $cmd, "]\n[RESULT:: ", $res,"]\n\n";
}