my $dbh = DBI->connect($data_source, $username, $auth, { LongReadLen=>8000 } );
# OR
$dbh->{LongReadLen} = 8000;