#!/usr/bin/perl
#/home/tbooth/perl/testanydata.perl - created Mon Jun 27 13:57:06 2005

use warnings;

use DBI;

my $addbh = DBI->connect('dbi:AnyData(RaiseError=>1):');
$addbh->func('import', 'CSV', [<DATA>], 'ad_import');


__DATA__
foo,bar,baz
1,2,3
4,5,6