$agent->get("http://some-web-site/");
$agent->follow_link( url_regex => qr/blablabla/i );

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