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

use DBI;

my $dbh = DBI->connect( "dbi:CSV:", undef, undef, {
        f_ext       => ".csv/r",
        RaiseError  => 1,
    }) or die "Cannot connect: $DBI::errstr: ";

my $sth = $dbh->prepare( "SELECT int,char FROM db" );
$sth->execute;


$sth->bind_columns( \my ( $int, $char ) );
while ( my @row = $sth->fetchrow_array ) {
    printf "INT: %i  CHAR %s, ROWINT: %i  ROWCHAR: %s\n", $int, $char, @row;

}