Select Code to Download

  $html .= $q->table(
    { -bgcolor => '#ffffff',
...
            ]
          )
);

  $html .= "<table class=\"foo\"><thead><tr>"
        . (join "\n", map {"<th>$_</th>"} @field)
...
          "<tr class=\"".(somecondition($_))."\">"
            .(join "\n", map {"<td>$record{$_}</td>"} @field)."</tr>"
        } @record) . "</tbody></table>\n";