Perl error in fetching data from Clob datatype.

[Rishi Bansal, Japan IT]

Hi,
 
I am trying to fetch data from CLOB datatype in Database.
I am getting an Error as : error:ORA-03127: no new operations allowed until
the active operation ends (DBD ERROR: OCISessionEnd).
 
I guess I am not handling the data fetched properly.
 
The code snippet is pasted here.
 
$dbh->{LongReadLen} = 1024 * 1024 * 1024;
$dbh->{LongTruncOk} = 1; 
 
my $sth = $dbh->prepare("SELECT MAIL_MSG FROM EBC_MAIL WHERE REQ_ID = 42 AND
SEQ = 31") or print "prepare error";
 
$sth->execute or print "execute error:$DBI::errstr";
 
my @blob ;
my $data = "";
while ((@blob) = $sth->fetchrow_array) {
$data = "@blob"; 
 }
  
$sth->finish() or print "<BR>commit errror:$DBI::errstr";
 
$dbh->disconnect or print "<BR>disconnect error:$DBI::errstr";
 
Kindly look into it and let me know where do I go wrong in fetching the
data.
 
Would really appreciate your effort.
 
Looking for a response at the earliest.
 
Thanks in anticipation,
Rishi Bansal.