sub table {
  my ($tab,$opt) = @_;

  my @attributes;
  push @attributes, qq(id="$opt->{id}")       if $opt->{id};
  push @attributes, qq(class="$opt->{class}") if $opt->{class};
  push @attributes, qq(style="$opt->{style}") if $opt->{style};

  my $format = @attributes > 0 ? ' '.join(' ',@attributes) : '';
  my $tag = 'table'.$format;

  line($tab,qq(<$tag>));
  line($tab + 1,qq(<caption>$opt->{caption}</caption>)) if $opt->{caption};

  row($tab + 1,'header',$opt->{headings}) if $opt->{headings};

  my $next_needs_head;
  for (@{$opt->{rows} || []}) {
    if (!ref and /^whead$/) {
      $next_needs_head = 1;
      next;
    }
    elsif (!ref) {
      $next_needs_head = 0;
      next;
    }
    row($tab + 1, $next_needs_head?"whead":"data", $_);
    $next_needs_head = 0;
  }

  line($tab,q(</table>));
}

table(1, {
	id       => 't1',
	headings => [qw/NAME STRENGTH COMMENT/],
	rows     => [
		whead => [qw/1    2        no/],
		data  => [qw/2    3        yes/],
		whead => [qw/10   20       another/],
		data  => [qw/100  200      comment/],
	],
});