if (Mail::CheckUser::last_check()->{code} == CU_SMTP_UNREACHABLE) {
  # can't reach server
  ...
}