use strict;
use warnings;

use DBI;
use XML::Generator::DBI;
use XML::Handler::YAWriter;

my $max  = 5;
my $data = join(',',map"col$_",1..$max) . do {local $/;<DATA>};
my $dbh  = DBI->connect('dbi:AnyData(RaiseError=>1):');
$dbh->func('test', 'CSV', [$data], 'ad_import');

my $generator = XML::Generator::DBI->new(
   Handler => XML::Handler::YAWriter->new(AsFile => '-'),
   dbh     => $dbh,
   Indent  => 1,
);

$generator->execute('select * from test');

__DATA__
colContents,nextColContents,lastColContents
colContents2,nextColContents2,lastColContents2
colContents3,nextColContents3,lastColContents3
a,b,c,d,e
f,g,h,i
j,k
l
m,n,o