Select Code to Download

sub HTML::TableExtract::Table::DESTROY {
    eval {
...
    };
    return;
}

 
        my $te = HTML::TableExtract -> new(  );
...
            undef $te;
            1;
        } or warn $@;