... $dbh->do("REPLACE .... ") or die "Error: $DBI::errstr\n";