$ cat ~/test/perl/text.table/text.table.pl

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

my $tb =
  Text::Table->new(\'| ', "", \' | ', "Field ", \'| ', "Length ", \'| ',
  "Comment ", \' |');
my @AoA = (
  [ 1, "Foo", "20", "Foo" ],
  [ 2, "Bar", "35", "Bar\nBar" ],
  [ 3, "Tze", "10", "Tze\nTze" ],
);

$tb->load(@AoA);
my $rule = $tb->rule(qw/- +/);
my @arr = $tb->body;

print $rule, $tb->title, $rule;
for (@arr) {
  print $_ . $rule;
}

__END__