sub render {
    my ($layer, $k, $comments, $hierarchy) = (@_);
    my $comment = $hierarchy{$k};
    if (!defined($comment)){
        return(0);
    }

    $layer++;
    my $ul = HTML::Element->new('ul');
    my $count = 0;
    foreach my $c (@{$comment}) {
        my $li = HTML::Element->new('li');
        $li->attr('id', "comment$c");
        my $p1 = HTML::Element->new('p');
        $p1->attr('class','author');
        $p1->push_content($comments{$c}->{comment_author} );
        $li->push_content($p1);
        
        my $p2 = HTML::Element->new('p');
        $p2->attr('class','date');
        $p2->push_content($comments{$c}->{comment_date_gmt});
        $li->push_content($p2);

        my $div = HTML::Element->new('div');
        $div->attr('class','words');
        $div->push_content($comments{$c}->{comment_content});
        $li->push_content($div);
        
        $ul->push_content($li);
        print "."x$layer,$c,"\n" if ($VERBOSE);
        my $html = &render($layer, $c, $comments, $hierarchy);
        if ($html) {
            $ul->push_content($html);
            $count++;
        }
    }
    return($ul);
}