Select Code to Download

 # Shorthand...top level rows() method assumes the first table found i
+n
 # the document if no arguments are supplied.
 foreach $row ($te->rows) {
     print join(',', @$row), "\n";
 }

use strict;
use warnings;
...
$te->parse($html_string);

print Dumper($te->rows);