my $dbh = DBI->connect("DBI:CSV:f_dir=".$FindBin::Bin) or die $DBI::errstr;