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

binmode STDOUT, ":encoding(utf-8)";
print Text::Table::Tiny::table(rows => $rows, header_row => 1);
print " \n";