#!/usr/bin/perl -w
######################
 
use DBI;
use strict;
 
 
my $dbh = DBI->connect('dbi:AnyData(RaiseError=>1):')
    or die $DBI::errstr;
 
$dbh->func('CSV',[<DATA>],
           'XML','animals.xml',
           'ad_convert');
 
 
__END__
animal_id,animal
1,bear
2,lion
3,tiger