sub dump_tree {
    my $thing = shift;
    print "<div>";
    dump_tree($_) for $thing->kids;
    print $thing if $thing->is_printable;
    print "</div>";
}

##</code><code>##

/* Take these as deep as you need/want and apply.class */
div { background-color: #111; }
div>div { background-color: #611; }
div>div>div{ background-color: #161; }
div>div>div>div { background-color: #116; }