Select Code to Download

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