Select Code to Download

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

    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_destroy
        OCIHandleFree(19cd328,OCI_HTYPE_STMT)=SUCCESS
    <- DESTROY= undef