$dbh->{LongReadLen} = 20000;  
 $sth = $dbh->prepare(``select long_col from big_table'');  
 $sth->execute;  
 etc