my $dbh = DBI->connect('DBI:ODBC:Kunden') or die $DBI::errstr;