or download this
my $dbh = DBI->connect(qq{DBI:CSV:csv_eol="\n";csv_sep_char=\\~});
$dbh->{'csv_tables'}->{'JPDObj'} = {'file' => 'data/objectives-cqdc.tx
+t','col_names' => ["Obj","PosNbr","Year","Div","AVP","Dept","SDescr",
+"Major","Methods","Results","Accompl","JanUp","LDescr","Changes","Cha
+rs","Goals","Budget","CFObj"]};
...
}