#!/usr/bin/perl

use strict;
use warnings;

use HTML::TableExtract;

die 'Missing argument!' unless (@ARGV);
my $file = shift @ARGV;
my $te = HTML::TableExtract->new();

$te->parse_file($file);

for my $table ($te->tables) {
    print 'Table (', join(', ', $table->coords), "):\n";
    my $rownumber = 1;
    for my $row ($table->rows) {
        print "Row $rownumber: ", join(', ', @$row), "\n";
        $rownumber++;
    }
}