sub HTML::TableExtract::Table::DESTROY {
    eval {
        $_[0]->tree->delete;
        $_[0]->tree( undef );
    };
    return;
}

##</code><code>##

 
        my $te = HTML::TableExtract -> new(  );
        $te->parse ($page);
        $te->eof;
        print "$te c is $c\n";

        eval {
            for( $te->tables ){
                $_->tree->delete ;
                $_->tree( undef );
            }
            $te->tree->delete;
            $te->tree( undef );
            undef $te;
            1;
        } or warn $@;