say "------------string inserted";
  use Text::Table::HTML;
  use Data::Dump;

  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";
  dd $string;
  say "------------string to be inserted ^^^";

  print $fh $$string;