my $stream =HTML::TokeParser->new( \agent->{content}   );