[%
   USE d = DBI(database = "dbi:AnyData", user = "", password = "");
   d.dbh.func("t_labels", "CSV", "/tmp/demo_labels.csv", "ad_catalog");
   FOREACH item = d.query("SELECT id,name FROM  t_labels");
        item.id; " has "; item.name;
   END;
%]


##</code><code>##

use DBI;
my $dbh = DBI->connect('dbi:AnyData(RaiseError=>0):');
$dbh->func( 't_labels', 'CSV', '/tmp/demo_labels.csv', 'ad_catalog' );
my $query = qq!SELECT id,name from t_labels!;
my $sth   = $dbh->prepare($query);
$sth->execute();
while ( my $row = $sth->fetchrow_hashref ) {
    print $row->{name}, "\n";
}