use Data::Dumper;
use strict;
use warnings;

use HTML::TableExtract;

my $te = HTML::TableExtract->new(headers => ['Name', 'Phone Number']);
 
$te->parse("<table><tr><td>Name</td><td>Phone Number</td></tr>"
           . "<tr><td>Tom</td><td>1234</td></tr>"
		   . "<tr><td>Mary</td><td>4321</td></tr></table>");
foreach my $ts ($te->table_states) {
   print "Table (", join(',', $ts->coords), "):\n";
   foreach my $row ($ts->rows) {
      print join(',', @$row), "\n";
   }
 }