use strict;
use DBI;
my $dbh = DBI->connect('dbi:AnyData(RaiseError=>1):');
$dbh->func( 'test', 'CSV', 'mytest.csv', 'ad_catalog' );
my $sth = $dbh->prepare( "SELECT * FROM test" );
$sth->execute();
while (my $row = $sth->fetch) {
      print "@$row\n";
}
$dbh->disconnect;


##</code><code>##

DBI handle 0x1d9e180 cleared whilst still active.
    dbih_clearcom (sth 0x1d9e180, com 0x1d9f3c4, imp DBD::AnyData::st):
       FLAGS 0x182195: COMSET Active Warn RaiseError PrintError PrintWarn ShowErrorStatement
       PARENT DBI::db=HASH(0x1d9e084)
       KIDS 0 (0 Active)
       IMP_DATA undef
       NUM_OF_FIELDS 4
       NUM_OF_PARAMS 0