eval{
  ##Do DB Stuff
  if($db->Sql($sql)){
    die "Error Querying SQL. Error: " . $db->Error();
  }
  ...
  ## Send email
  my $sender = new Mail::Sender({smtp => $smtp, on_errors => 'die'})||
               die "Failed Mail::Sender object creation: $Mail::Sender::Error\n";
  ## Do more Mail::Sender stuff, which will die on failure 
  ##because of on_errors => 'die'
  ...
};

&write_error_log($@) if($@);