use strict;
use warnings;
use Encode;
binmode STDOUT, ":encoding(UTF-8)";

# ...

my $rows=[];
push @$rows, [qw(kdnummer kddatum kdfirma kdstrasse kdhausnummer kdplz kdort kdland kdansprechpartner kdtelefon kdfax kdemail)];
while(my @row = $sth->fetchrow_array)
{
  @row=map{decode("UTF-8", $_)}@row;
  push @$rows, [@row];
}

print Text::Table::Tiny::table(rows => $rows, header_row => 1);
print " \n";