The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
BEGIN {
    use Apache::TestUtil;
    t_server_log_error_is_expected();
}

# this script sends no body at all, and since the error happens
# the script will return 500

print "Content-type: text/plain\n\n";
print no_such_func();