my $dbh = DBI->connect('DBI:CSV:f_dir='.$FindBin::Bin.';csv_sep_char=\;'.";csv_eol=\n");