#!/bin/perl

use table;

$filename = Some html file ;

my $table = Table->parse_it($filename);
for $x (1 .. $#$table) 
{
 print "table $x contents:\n";
 for $y (1 .. $#{$table->[$x]}) 
 {
  for $z (1 .. $#{$table->[$x][$y]}) 
  {
   print  "cell($y,$z)-->\"$table->[$x][$y][$z]\"\n";
  }
 }
 print "\n\n";
}