Select Code to Download

use strict;
...
$sth->execute;
$sth->finish;
$dbh->disconnect;

SQL>  Name                                         Null?    Type
 ----------------------------------------- -------- ------------------
+----------
...
 RESERVATIONID                             NOT NULL CHAR(50)

SQL> Disconnected from Oracle Database 11g Enterprise Edition Release 
+11.1.0.6.0 - 64bit Production

CARRIE,123454,24-NOV-09 06.00.00.000000 PM,24-NOV-09 08.00.00.000000 P
+M,For Carrie test,pipe,123454                        
box1,56789,25-JUL-09 07.00.00.000000 AM,25-JUL-09 08.00.00.000000 AM,,
+ector,56789

DBD::Oracle::st execute failed: ORA-02291: integrity constraint (LRRS.
+RESERVATION_MACHINE_FK1) violated - parent key not found (DBD ERROR: 
+OCIStmtExecute) [for Statement "insert into reservation (machinename,
+reservationida,beginreserve,endreserve,description,reservationid) val
+ues (?,?,TO_TIMESTAMP(?,'DD/MON/YYYY HH:MI:SS'),TO_TIMESTAMP(?,'DD/MO
+N/YYYY HH.MI.SS'),?,?)" with ParamValues: :p1='volcano', :p2=666, :p3
+='12/MAR/2010 7:20:00', :p4='12/MAR/2010 8:20:00', :p5='This is explo
+sive fun!', :p6=666] at ./liltest.pl line 23.