db2 "LOAD from $INPUT_DIR/product.input \
   OF DEL  \
   MODIFIED BY TIMESTAMPFORMAT=\"YYYY-MM-DD-HH:MM:SS.UUUUUU\" \
   SAVECOUNT 1000  \
   MESSAGES $OUTPUT_DIR/product.msg  \
   REPLACE INTO DB2INST1.PRODUCT  \
   COPY YES TO /dev/null \
   WITHOUT PROMPTING \
   DATA BUFFER 2000" >> $SQL_LOG

 db2 "SET INTEGRITY FOR DB2INST1.PRODUCT IMMEDIATE CHECKED" >> $SQL_LOG

##</code><code>##

use DBI;
use Tie::File;
use File::Copy;

my $database='DBI:DB2:game';
my $user='db2admin';
my $password='db2admin';
my $dbh = DBI->connect($database,$user,$password) or die "Can't connect to $database: $DBI::errstr";
my $sth = $dbh->prepare(
	q{ load from product.input of DEL modified by timestampformat="YYYY-MM-DD-HH:MM:SS.uuuuuu" 
	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";