use strict; # please ;)
use DBI;
use File::Basename;

my $dir   = '.';
my $file  = 'simple.csv';
my $table = (fileparse($file,'.csv'))[0]; 
my $cols  = [qw(foo bar baz)];
my $sep   = ':';

my $dbh = DBI->connect(
   "DBI:CSV:f_dir=$dir;csv_eol=\n;csv_sep_char=$sep;",
   {RaiseError=>1},
);

$dbh->{csv_tables}->{$table} = { 
   file      => $file,
   col_names => $cols,
};