if ($email_400) {
    my $problem_description = $ENV{REDIRECT_URL}
        ? "A request was received for the file $ENV{REDIRECT_URL}, which does not exist."
        : "A file request was received but no filename was supplied.";
    send_mail(...
    ...
    $problem_description
    ...
EOF