mkpath("$OutDir/$ShareName", 0, 0777);
open(NEW_FILES, ">>", "$TopDir/pc/$host/NewFileList")
|| die("can't open $TopDir/pc/$host/NewFileList");
mkpath("$OutDir/$ShareName", 0, 0777);
open(NEW_FILES, ">>", "$TopDir/pc/$host/NewFileList")
|| die("can't open $TopDir/pc/$host/NewFileList");