No, you've got the /LI in the wrong place. Change

join ('', map { "$i  <li>$_</li>\n" . hash_to_html ($x->{$_}, "$i    "
+) } sort (keys (%$x)))
[download]

to

join ('', map { "$i  <li>$_\n" . hash_to_html ($x->{$_}, "$i    ")."$i
+  </li>" } sort (keys (%$x)))
[download]

-- Randal L. Schwartz, Perl hacker