#!/usr/bin/perl

use strict;
use warnings;

use DBI;

my $dbh = DBI->connect ("dbi:CSV:") or die "Cannot connect: $DBI::errstr";

$dbh->{csv_tables}->{testtable} = {
    'file' => 'test.csv',
};

my $query = "SELECT VERSION from test.csv WHERE OS='Fedora' AND RELEASE='Stentz'";
my $sth = $dbh->prepare($query);
$sth->execute;
$sth->dump_results();
$dbh->disconnect();