($ul) = $tree->look_down("_tag", "ul");
if($ul)
{
  for my $child ($ul->content_list())
  {
    if(ref($child) && $child->tag() eq 'li')
    {
      print $child->as_HTML();
      print print "\n----------------------------------------------\n";
    }
  }
}
else
{print "kein UL gefunden...\n"}