- my $table = Text::Table->new(@$headers);
- $table->load(map { [map { _stringify($_) } @$_] } @$rows);
- print { $fh } encode('UTF-8', "$table");
+ my $table = Text::Table::Any::table(
+ header_row => 1,
+ rows => [$headers, map { [map { _stringify($_) } @$_] } @$rows],
+ backend => $ENV{PERL_TEXT_TABLE},
+ );
+ print { $fh } encode('UTF-8', $table);