use strict;
use warnings;

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

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

print Dumper ($te);