use strict;
use warnings;

use Data::Dumper;
use HTML::TableExtract;

my $te = HTML::TableExtract->new( depth => 2, count => 2 );

print Dumper ($te);
[download]

$VAR1 = bless( {
                 '_ts_sequential' => [],
                 'headers' => undef,
                 'br_translate' => 1,
                 'gridmap' => 1,
                 'strip_html_on_match' => 0,
                 'subtables' => undef,
                 'decode' => 1,
                 'keep_headers' => 0,
                 '_in_a_table' => 0,
                 'keep' => 0,
                 'debug' => 0,
                 '_tables' => {},
                 '_cdepth' => -1,
                 'elastic' => 1,
[download]

                 'count' => 2,
                 'depth' => 2,
[download]

                 'automap' => 1,
                 'keepall' => 0,
                 'error_handle' => \*::STDOUT,
                 'attribs' => undef,
                 'keep_html' => 0,
                 'chain' => undef,
                 '_hparser_xs_state' => \25467620,
                 'slice_columns' => 1,
                 '_counts' => {},
                 '_tablestack' => [],
                 '_table_mapback' => {}
               }, 'HTML::TableExtract' );
[download]