unless (Email::Valid->address(-address => $email_addr, -mxcheck => 1)) {
  # error
}