use DBIx::XHTML_Table;

my $max = shift || 12;
print DBIx::XHTML_Table
   ->new([get_table($max)],[])
   ->output({no_head=>1})
;