#just to give you an idea about extracting text
#not complete or tested
while(my $token = $stream->get_token()){
	if(($token->[0] eq 'S') && ($token->[1] eq 'td')){
		my @tokens;
		my (@headers, @links);
		push(@tokens, $stream->get_token()) x 2;
		if(($tokens[0][0] eq 'S') && ($tokens[0][1] eq 'b')){
			push(@headers, $tokens[1][1]);
		}
		if(($tokens[0][0] eq 'S') && ($tokens[0][1] eq 'a')){
			push(@links, $tokens[0][2]{'href'});
		}
		$stream->unget_token(@tokens);
	}
}