my $te = HTML::TableExtract->new;
    $te->parse($html);