my $db = DBI->connect(qq{DBI:CSV:csv_sep_char=\\;});