my $dbh = DBI->connect ("dbi:CSV:", undef, undef, {
	f_ext      => ".csv",
	RaiseError => 1,
	f_dir      => "root",
}
);