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";