sub newguid {
  local($id)=`uuidgen.exe` || die "$0: Cannot run UUIDGEN.EXE\n";
  chomp($id);
  return $id;
}