#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my $file = './test.csv';
my $dbh  = DBI->connect("DBI:CSV:f_dir=.;csv_sep_char=\\;") or die $DBI::errstr;
$dbh->{csv_tables}->{'info'} = {file => $file};

my $sth = $dbh->prepare(q~SELECT * FROM info~);
$sth->execute();

while(my @row = $sth->fetchrow_array()){
    @row = grep{defined $_ }@row;
    print join("--",@row),"\n";
}
$sth->finish();