Как добавить заголовок в HTML-файл, используя perl HTML :: Table

Question

Я создал HTML-таблицу с использованием модуля HTML :: Table, теперь я хочу добавить к ней заголовок.Подскажите, пожалуйста, как добавить заголовок в таблицу без использования CGI или каких-либо других модулей.

#!/apps/perl/5.14.2/bin/perl
use strict;
use feature "say";
use HTML::Table;
use lib "/apps/perl/modules-1205/lib";

my $table= new HTML::Table( -cols       =>  18,
                            -align      =>  'left',
                            -border     =>  1,
                            -width      =>  '50%',
                            -spacing    =>  1,
                            -padding    =>  1,
                            -bgcolor    => '#DFF7FE',
                          );

$table->addSectionRow('thead', 0,'Block Name','Owner','Handoff','Testpoints','Type','SA-Cov','SA-Cov-TP','SA-Cov-Diff','SA-Patt','SA-Patt-TP','SA-Patt-Diff','TFT-Cov','TFT-Cov-TP','TFT-Cov-Diff','TFT-Patt','TFT-Patt-TP','TFT-Patt-Diff','Path');

$table->setSectionStyle('thead', 0, 'background-color: #FFFEEC');
$table->setSectionRCellsHead('thead', 0, 1);

open my $HTML,'>' ,'Testpoint.html' or die $!;
print $HTML "$table\n";

Answer 1

Нет способа сделать это с этим модулем. HTML :: Table буквально производит только элементы HTML <table>.Это не универсальный инструмент.

Простой способ будет до print "<title>My Title</title>\n"; перед печатью таблицы.Нет причин привлекать другой модуль.