#! /usr/bin/perl -w

use strict;
use LWP::UserAgent;
use HTTP::Request;
use HTML::Parser;

my $chunk = 0;

my $p = HTML::Parser->new(
    start_h   => [ \&begin,   'tagname,attr' ],
    default_h => [ \&content, 'text'    ],
    end_h     => [ \&end,     'tagname' ],
);

my $ua = LWP::UserAgent->new;

my $req = HTTP::Request->new(GET => 'http://localhost/cgi-bin/bloat.cgi' );
my $res = $ua->request($req, \&cb);
$p->eof;

sub cb {
    my $received = shift;
    ++$chunk;
    $p->parse( $received );
}

sub begin {
    my $element = shift;
    my $r       = shift;
    print "received <$element";
    print qq{ $_="$r->{$_}"} foreach keys %$r;
    print "> at chunk $chunk\n";
}

sub content {
    my $content = shift;
    print "received [$content] at chunk $chunk\n";
    ###########################
    die if $content eq '123'; #
    ###########################
}

sub end {
    my $element = shift;
    print "received </$element> at chunk $chunk\n";
}
__END__