unless ((my $req_prm = $stmt->params ()) == (my $nparm = @$params)) {
      my $msg = "You passed $nparm parameters where $req_prm required";
      warn $msg;
      }