#!/usr/bin/perl
use warnings;
use strict; # to prevent silly errors

use DBI;

my $addbh = DBI->connect('dbi:AnyData(RaiseError => 1):');
$addbh->func('mytable', 'CSV', [ <DATA> ], 'ad_catalog');
my $sth = $addbh->prepare( 'select foo, bar, baz from mytable' );
$sth->execute;
DBI::dump_results($sth);
#$sth->finish;
#$addbh->disconnect;

__DATA__
foo,bar,baz
1,2,3
4,5,6
7,8,9