%zuordnung=(
           kunden => {
           file => 'kunden.csv',
           col_names   => ['kdnummer', 'kddatum', 'kdfirma', 'kdstrasse', 'kdhausnummer', 'kdplz', 'kdort', 'kdland', 'kdansprechpartner', 'kdtelefon', 'kdfax', 'kdemail'],
           },
           );
# Verbindung aufbauen
$dbh = DBI->connect("DBI:CSV:", undef, undef, {
                                              # Zeilenseparator
                                              csv_eol => "\x0A",
                                              # Spaltenseparator:
                                              csv_sep_char => ",",
                                              # Verzeichnis mit den Dateien
                                              f_dir => $Bin,
                                              # Zuordnung Dateiname -> Tabelle
                                              csv_tables => \%zuordnung,
                                              # bei Fehlern immer sterben:
                                              RaiseError => 1,
                                              }
                      ) or die($DBI::errstr);
$sth=$dbh->prepare("SELECT * FROM kunden WHERE kdfirma LIKE '\%$kdfirma\%'");
$sth->execute();