use DBI;
$dbh = DBI->connect("DBI:CSV:");
$dbh->{'csv_tables'}->{'info'}={'file'=>'info.csv'};

$qu = $dbh->prepare("SELECT * From info");
$qu->execute();
while (@row = $qu->fetchrow_array){
print "@row\n";}