#!/bin/env perl
use strict;
use warnings;

use DBI;

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

my $qu = $dbh->prepare('select * from info');
$qu->execute();

my @cols = @{$dbh->{csv_tables}{info}{col_names}}; # col_names won't be defined until you've queried the file.
print "column names: @cols\n";

while( my @row = $qu->fetchrow_array) {
  print "row: @row\n";
}