$out_dir .= '\\' if substr($out_dir, -1) ne '\\';

system(xcopy => $und_dbm, $out_dir, '/r', '/y', '/i')