eval {
  $sth->execute($var1, $var2);
};
if ($@) {
  die "Error: $@\n";
}