if($email_400) {
  my $email_content = <<EOF;
To: $email_400
..
..
EOF
  send_mail($email_400,$email_content);
}