Select Code to Download

 db2 "LOAD from $INPUT_DIR/product.input \
   OF DEL  \
...
   DATA BUFFER 2000" >> $SQL_LOG

 db2 "SET INTEGRITY FOR DB2INST1.PRODUCT IMMEDIATE CHECKED" >> $SQL_LO
+G

use DBI;
use Tie::File;
...
    savecount 1000 messages rob.msg replace into db2inst1.product copy
+ yes to d:\data\perl without prompting}) 
    or die "Can't prepare statement: $DBI::errstr";
my $rc = $sth->execute or die "Can't execute statement: $DBI::errstr";