#!/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

##</code><code>##

$ perl anydata.pl
'1', '2', '3'
'4', '5', '6'
'7', '8', '9'
3 rows
DBI handle 0x85cecf8 cleared whilst still active, <DATA> line 4.
    dbih_clearcom (sth 0x85cecf8, com 0x85d1c58, imp DBD::AnyData::st):
       FLAGS 0x182195: COMSET Active Warn RaiseError PrintError PrintWarn ShowErrorStatement
       PARENT DBI::db=HASH(0x85cebfc)
       KIDS 0 (0 Active)
       IMP_DATA undef
       NUM_OF_FIELDS 3
       NUM_OF_PARAMS 0