use DBI;use strict;use warnings;
my $dbh = DBI->connect("DBI:CSV:f_dir=./;");
$dbh->do("create table mytable (field1 text,field2 text)");
$dbh->do("insert into mytable values ('','there')");
print "field1=",$dbh->selectrow_array("select field1 from mytable");