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