$sth = $dbh->prepare ("INSERT INTO testimonial VALUES(?,?,?,?,?)") 
   or die "prepare: $stmt: $DBI::errstr";
$sth->execute ('',$name, $email, $testimonial,'') 
   or die "execute: $stmt: $DBI::errstr";