$sth=$dbh->prepare("SELECT * FROM kunden WHERE kdnummer LIKE '$kdnummer'");
$sth->execute();

#while(my @row = $sth->fetchrow_array){
#                                      print join('; ',@row)."\n";
#                                      }

$Text::Table::Tiny::COLUMN_SEPARATOR = '|';
$Text::Table::Tiny::ROW_SEPARATOR = '-';
$Text::Table::Tiny::CORNER_MARKER = '+';
$Text::Table::Tiny::HEADER_ROW_SEPARATOR = '_';
$Text::Table::Tiny::HEADER_CORNER_MARKER = '|';

#Tabellentest.pl

my $rows = [
        # header row
['kdnummer', 'kddatum', 'kdfirma', 'kdstrasse', 'kdhausnummer', 'kdplz', 'kdort', 'kdland', 'kdansprechpartner', 'kdtelefon', 'kdfax', 'kdemail'],
        # rows
        ['alice', 'pvt', '123456'],
        ['bob',   'cpl', '98765321'],
        ['carol', 'brig gen', '8745'],
    ];

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


print " \n";
print "Datensatzsuche beendet! [ENTER] \n";