#!/usr/bin/env perl
use 5.16.0;
use utf8;
use strictures;
binmode STDOUT, 'utf8';
use open OUT => ':utf8';

my $out_string = '
<style>
table {
  border:0;
  border-collapse:collapse;
}
td {
  font-weight:700;
  text-align:center;
  line-height:200%;
  font-size: 150%;
  border:2px solid black;
  width:2em;
  height:2em
}
td.fill {
  background-color:black;
}
</style>';


use Text::Table::HTML;

my $rows =   [
  [ "a" .. "f" ],
  [ "a",        "q", "c" .. "f" ],
  [ "a" .. "e", "\x{2588}" ],
  [ "\x{2588}", "b" .. "f" ],
  ];

my $string = Text::Table::HTML::table(rows => $rows);
say "$string";

say "-------";
$out_string .= $string;
say "-------";
say "$out_string";

$