if (@children) {
  print "<li>[$rec{'ID'}] $rec{'Subject'}<ul>\n";
  for my $child (sort @children) {
    do_tree($child);
  }
  print "</ul></li>\n";
}