my $s = $h->prepare(q{select 'frederick'});
$s->execute;
$s->bind_col(1, undef, {BindAsLOB=>1});
$s->fetch;
# SQL_SUCCESS = 0
# SQL_SUCCESS_WITH_INFO = 1
# SQL_NO_DATA = 100
while(my $len = $s->odbc_lob_read(1, \my $x, 8)) {
    print "len=$len, x=$x\n";
}