sub convert {
    my $html = shift;
    
    my $t = HTML::TreeBuilder->new();
    $t->parse($html);
    $t->eof;
    
    my $obj = DumpTable( $_ ), $/, $/ 
	for $t->find_by_tag_name('table') ;
    return($obj);
}