my $dsn = "DBI:ODBC:Kunden";
 my $dbh = DBI->connect($dsn)
     or die "Error: couldn't connect to '$dsn': $DBI::errstr\n";