$sth->execute() or do {
        $msg = "ERROR:$0: Error in SQL execute:\n$DBI::errstr";
        $dbh->rollback();
        confess "$msg";
    };

##</code><code>##

    DBI::st=HASH(0x15783d0) trace level set to 0x0/14 (DBI @ 0x0/0) in DBI 1.609-ithread (pid 26383)
    -> execute for DBD::Oracle::st (DBI::st=HASH(0x16e9b28)~0x15783d0) thr#154e010
   dbd_st_execute CREATE (out0, lob0)...
Statement Execute Mode is 0 (DEFAULT)
        OCIStmtExecute(19c18d8,19cd328,19b9f68,1,0,0,0,mode=DEFAULT,0)=SUCCESS
        OCIAttrGet(19cd328,OCI_HTYPE_STMT,7fffb492eec8,0,OCI_ATTR_ROW_COUNT,19b9f68)=SUCCESS
        OCIAttrGet(19cd328,OCI_HTYPE_STMT,7fffb492eece,0,OCI_ATTR_SQLFNCODE,19b9f68)=SUCCESS
        dbd_st_execute CREATE returned (SUCCESS, rpc2211750915, fn1, out0)
    <- execute= undef at ./test_query.pl line 80
    -> finish for DBD::Oracle::st (DBI::st=HASH(0x16e9b28)~0x15783d0) thr#154e010
    <- finish= 1 at ./test_query.pl line 98
    -> DESTROY for DBD::Oracle::st (DBI::st=HASH(0x15783d0)~INNER) thr#154e010
        dbd_st_destroy
        OCIHandleFree(19cd328,OCI_HTYPE_STMT)=SUCCESS
    <- DESTROY= undef