UpdateHTML() calls WriteTOC() (at least in the versions of ActivePerl::DocTools I've seen/used), no need to call that yourself.

---

You have moved into a dark place.
It is pitch black. You are likely to be eaten by a grue.