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;