#!/usr/bin/perl

use HTML::TableExtract;
use Text::Table;
use Data::Dumper;
use strict;

my $content = 'table.html';
my $headers = ['subhead1', 'subhead2'];

my $tbl_extr = HTML::TableExtract->new(headers => $headers);
my $tbl_out = Text::Table->new(@$headers);


$tbl_extr->parse_file($content);

my ($table) = $tbl_extr->tables;
my $row;

foreach $row ($table->rows) {
        
        $tbl_out->load($row);
}
print $tbl_out;