... $self->_loggerObj()->logInfo("Cleanup Corpse sessions from DB: ".$self->_sessionsDBFName()); # Prepare delete query to clean up corpse try { #Delete all the sessions where Sessions original creation time + SESSION_MAX_LIFE_TIME < NOW $stHandle = $dbHandle->prepare( qq{ DELETE FROM TB_SESSIONS WHERE ( TB_SESSIONS.creationTime + ? ) < ? ; } ); }catch { $self->_loggerObj()->logError("Can not PREPARE Corpse clean up DELETE for DB: ".$self->_sessionsDBFName()." , ".$dbHandle->errstr().", $_ , in removeSessionDetails"); $dbHandle->disconnect(); undef $stHandle; undef $dbHandle; #Here the main operation is success , Corpse clean up is extra, do not report error from Corpse clean up, Just return main operation # i.e removeSessionDetails's result. return SESSION_ID_REMOVED; }; #Run query try { $self->_loggerObj()->logInfo("Execute :Corpse clean up DELETE from DB [removeSessionDetails]".SESSION_MAX_LIFE_TIME." ".time()); $dbHandle->do('BEGIN EXCLUSIVE TRANSACTION'); my $now = time(); print "\n NOW: $now"; my $rv = $dbHandle->do('DELETE FROM TB_SESSIONS WHERE ( TB_SESSIONS.creationTime + '.SESSION_MAX_LIFE_TIME.' ) < '.$now.';'); print "\n ---1.", Dumper($rv); $rv = $stHandle->execute(SESSION_MAX_LIFE_TIME,time()); print "\n ---2.", Dumper($rv); $dbHandle->do('COMMIT TRANSACTION'); }catch { $self->_loggerObj()->logError("Can not RUN Corpse clean up DELETE query for DB: ".$self->_sessionsDBFName()." , ".$dbHandle->errstr().", $_ , in removeSessionDetails"); $dbHandle->disconnect(); undef $stHandle; undef $dbHandle; #Here the main operation is success , Corpse clean up is extra, do not report error from Corpse clean up, Just return main operation # i.e removeSessionDetails's result. return SESSION_ID_REMOVED; }; ....