$sth = $dbh->prepare ("UPDATE testimonial SET 
   name     = ?,
   email    = ?, 
   quote    = ?,	
   approved = ? WHERE id = $id") or die "prepare: $stmt: $DBI::errstr";
		
$sth->execute ($name, $email, $testimonial, $approved) 
   or die "execute: $stmt: $DBI::errstr";