use strict;
use warnings;
use HTML::TableExtract;

my $te = HTML::TableExtract->new ();
$te->parse (<<HTML);
<table>
    <tr><td>Cell 1</td><td>Cell 2</td><td>Cell 3</td></tr>
    <tr><td>Cell 4</td><td>Cell 5</td><td>Cell 6</td></tr>
</table>
HTML

my $table = $te->first_table_found;
my @totalrows = $table->rows ();

print "$_->[0] - $_->[1] - $_->[2]\n" for @totalrows;