#!/usr/bin/perl -w
use strict;
use diagnostics;
use DBI;

my $dbh = DBI->connect('dbi:AnyData(RaiseError=>1):');
$dbh->func(
    'test', 'CSV', 'test.csv',
    { sep_char => ',', end_of_line => "\n", col_names => 'number,fruit,year' },
    'ad_catalog'
);

my $sth = $dbh->prepare("SELECT year FROM test WHERE fruit ='apple'");
$sth->execute();
while ( my $row = $sth->fetch ) {
    print "@$row\n";
}