my $dbh = DBI->connect(qq{DBI:CSV:csv_sep_char=\\;});
$dbh->{'csv_tables'}->{'info'} = { 'file' => 'test.csv' } or die "Problem creating table";
my $sth = $dbh->prepare("select * from info") or die "Can't prepare sth: $dbh->errstr\n";
$sth->execute or die "Can't execute the query: $sth->errstr";
my $count = 0;
while (my @row = $sth->fetchrow_array) {
	print "Row: $count  ";
	print $row[0] . "  ";
	print $row[1] . "  ";
	print $row[2] . "  ";
	print $row[3] . "  ";
	print $row[4] . "  ";
	print $row[5] . "  ";
	print $row[6] . "  ";
	$count++;
}
$sth->finish;