my $chunksize = 1024;
my $offset = 1;
my $data = $dbh->ora_lob_read($char_locator, $offset, $chunksize)
  or die "ERROR: " . $sth->errstr . "\n";