use strict;
use warnings;
use DBIx::XHTML_Table;

my $row  = [map [1..10], 1..10];
my $head = [map "head$_", 1..10];

print DBIx::XHTML_Table->new($row,$head)->calc_totals->output;