#!/usr/bin/perl

use strict;
use warnings;
use DBD::CSV;

my $csvh = DBI->connect("DBI:CSV:f_dir=.;
           csv_sep_char=\t;csv_eol=\n;")
or die($DBI::errstr);
$csvh->{csv_allow_whitespace} = 1;
$csvh->{'csv_tables'}{'csv'} = { file => 'file.csv' };