Select Code to Download

void odbc_lob_read(sth, colno, buf, length, attr = NULL)
     SV *sth
...
         SvSETMAGIC(ST(2));
     }
     ST(0) = (ret_len >= 0) ? sv_2mortal(newSViv(ret_len)) : &PL_sv_un
+def;

my $s = $h->prepare(q{select 'frederick'});
$s->execute;
...
while(my $len = $s->odbc_lob_read(1, \my $x, 8)) {
    print "len=$len, x=$x\n";
}