use strict;
use CGI;
use DBI;
my $DBDIR='..\CSV-DB';
my $DBOmni = 'foo';
my $dbh = DBI->connect ("dbi:CSV:", undef, undef, {
    f_dir               => $DBDIR,
    f_ext               => ".csv/r",
    f_encoding          => "utf8",
    csv_sep_char        => ";",
    RaiseError          => 1,
    }) or die "Cannot connect: $DBI::errstr";

my $sth = $dbh->prepare ("select * from $DBOmni");                    
   $sth->execute();
my (@row);
while ( @row = $sth->fetchrow_array ) {
     print "$row[2] :: $row[0] :: $row[1] :: $row[3]\n";
}
$dbh->disconnect;