unless ($sth->execute($var1, $var2)) {
  die "Error in executing sql: ", $dbh->errstr, "\n\tStatement was: $sql\n";
} # unless