#!/usr/bin/env perl

use strict;
use warnings;
use Text::Table::HTML;

print Text::Table::HTML::table(
    rows => [
        ["value", "printed"],
        ["zero (number)", 0],
        ["empty string", ""],
        ["undef", undef],
        ["zero (string)", "0"],
        ["zero point zero (string)", "0.0"],
        ["one (number)", 1],
    ],
    header_row => 1,
);
