$dbh = DBI->connect ("dbi:CSV:", undef, undef, {
    f_dir               => [$DBDIR],
    #f_dir_search       => [$DBDIR],
    f_ext      => ".csv/r",
    RaiseError => 1,
    }) or die "Cannot connect: $DBI::errstr";