my $sth = $dbh->prepare('select lob from table_lob');
$sth->execute();
$sth->bind_col(1, undef, {TreatAsLOB=>1});
$sth->fetch;
$sth->odbc_lob_read(1, \my $data, 65335);
print $data;