use DBI;
use strict;
use warnings;

my $csv = DBI->connect(qq'dbi:CSV:f_dir=.;csv_eol=\n') or die;

my $d = $csv->selectall_arrayref(qq(select * from longread where a = ?), {}, 1);

print length $d->[0][1], "\n";