Select Code to Download

  my $retval = eval {
      $dbh->execute(@values);
...
  unless ($retval) {
      _db_recover();
  }

  eval {
      $dbh->execute(@values);
...
  if ($@) {
      _db_recover();
  }