sub get_table {
   my $max = $_[0] - 1;
   my @table;
   for my $y (0..$max) {
      for my $x (0..$max) {
         $table[$y][$x] = ($x + 1) * ($y + 1);
      }
   }
   return @table;
}

##</code><code>##

use Text::Table;

my $max   = shift || 12;
my @table = get_table($max);

my $text_table = Text::Table->new(1..$max);
$text_table->load(@table);
print $text_table->body;

##</code><code>##

use DBIx::XHTML_Table;

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