sub start_handler {
    my $self = shift;
    my $tagname  = shift;
    my $attr = shift;
    my $text = shift;
    return unless ( $tagname eq 'div' and $attr->{id} eq 'body' );
    $self->handler( start => sub { print shift }, "text" );
    $self->handler( text => sub { print shift }, "text" );
    $self->handler(end  => sub {
        my ($endtagname, $self, $text) = @_;
            if($endtagname eq $tagname) {
                    $self->eof;
            } else {
                    print $text;
            }
        }, "tagname,self,text");
}