#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my $dbh = DBI->connect('dbi:AnyData(RaiseError=>1):');

$dbh->func(
  'articles', 'CSV', 'articles.csv', 'ad_catalog'
);