#!/usr/bin/perl --
use strict; use warnings;
use Data::Dump;
use DBI;
use DBD::CSV;
my $dbh = DBI->connect(
    "dbi:CSV:",
    undef, undef,
    { RaiseError => 1 },
);
my $sth = $dbh->prepare_cached('
select *
from test.csv
where OS=?
and RELEASE=?
LIMIT 8
');
$sth->execute( 'Fedora', 'Stentz' );
dd $sth->fetchall_arrayref;
__END__
[["Fedora", "Stentz", 4]]