#!/usr/local/bin/perl
use warnings;
use strict;

use DBI;

print "perl-Test \n";

my $table = 'gecos';

my $dbh = DBI->connect("DBI:CSV:f_dir=/tmp");
$dbh->{'csv_tables'}->{$table} = {
                                  'sep_char' => ":",
                                  'file' => 'csvdb'
                                 };

my(@list) = $dbh->func('list_tables');

print "END \n";
exit;