经典Perl邮件脚本迁移后出现500 Server Error求助

我使用经典Perl邮件处理脚本NMS FormMail v3.14c1，此前在旧服务器运行正常，迁移至新服务器后持续返回“500 Server Error”，无法定位问题。脚本配置信息如下：

#!/usr/bin/perl -wT
##############################################################################
# nms Formmail                         Version 3.14c1                        #
# Copyright 2001 London Perl Mongers   All rights reserved                   #
# Created 11/11/01                     Last Modified 08/11/04                #
# Matt's Script Archive:               http://www.scriptarchive.com/         #
##############################################################################
#
# NMS FormMail Version 3.14c1
#

use strict;
use vars qw(
  $DEBUGGING $emulate_matts_code $secure %more_config
  $allow_empty_ref $max_recipients $mailprog @referers
  @allow_mail_to @recipients %recipient_alias
  @valid_ENV $date_fmt $style $send_confirmation_mail
  $confirmation_text $locale $charset $no_content
  $double_spacing $wrap_text $wrap_style $postmaster 
  $address_style
);

# PROGRAM INFORMATION
# -------------------
# FormMail.pl Version 3.14c1

# USER CONFIGURATION SECTION
# --------------------------
# Modify these to your own settings.

BEGIN
{
  $DEBUGGING         = 0;
  $emulate_matts_code= 0;
  $secure            = 1;
  $allow_empty_ref   = 0;
  $max_recipients    = 1;
  $mailprog          = '/usr/sbin/sendmail -oi -t';
  $postmaster        = '';
  @referers          = qw(reverd.com localhost);
  @allow_mail_to     = qw(stavam@lightspeed.ca);
  @recipients        = ();
  %recipient_alias   = ('9' => 'stavam@lightspeed.ca');
  @valid_ENV         = qw(REMOTE_HOST REMOTE_ADDR REMOTE_USER HTTP_USER_AGENT);
  $locale            = '';
  $charset           = 'iso-8859-1';
  $date_fmt          = '%A, %B %d, %Y at %H:%M:%S';
  $style             = 'https://reverd.com/css/reverd.css';
  $no_content        = 0;
  $double_spacing    = 0;
  $wrap_text         = 0;
  $wrap_style        = 1;
  $address_style     = 0;
  $send_confirmation_mail = 1;
  $confirmation_text = <<'END_OF_CONFIRMATION';
From: noreply@reverd.com
Subject: Your reverd.com contact submission

Hi,
Thank you for contacting Reverd!
We will try to respond within 24 hours.

Thank you!
https://reverd.com - get rid of scam calls automatically


END_OF_CONFIRMATION

# You may need to uncomment the line below and adjust the path.
# use lib './lib';

# USER CUSTOMISATION SECTION
# --------------------------
# Place any custom code here


# USER CUSTOMISATION << END >>
# ----------------------------
# (no user serviceable parts beyond here)
}

对应的联系表单位于reverd.com的about/contact页面。

此前在旧服务器运行顺畅，迁移后突然出现上述错误，所有配置均确认正确，且该脚本曾在多个网站正常使用，现需排查导致500 Server Error的原因。

可能的故障原因 #

1. Perl环境不兼容 #

• 新服务器未安装Perl或版本不符：旧服务器的Perl版本可能与新服务器存在差异，脚本依赖的核心模块（如strict）可能未正确安装。可通过终端执行perl -v查看版本，perl -Mstrict -e ''验证模块是否可用。
• Shebang路径错误：脚本开头的#!/usr/bin/perl -wT指定的Perl路径在新服务器可能不存在，执行which perl获取新服务器的Perl实际路径，修改shebang行。

2. 文件权限配置错误 #

• 脚本无执行权限：新服务器未给脚本设置可执行权限，执行chmod +x FormMail.pl赋予权限；同时确保Web服务器进程（如Apache、Nginx）对脚本文件有读取权限。
• Sendmail权限问题：$mailprog设置的/usr/sbin/sendmail路径在新服务器可能不正确，或Web服务器进程无执行sendmail的权限。执行which sendmail确认路径，检查sendmail的权限设置。

3. 安全机制拦截 #

• Taint模式触发限制：脚本启用了-wTtaint模式，新服务器的环境变量或文件路径可能触发taint检查失败。临时将$DEBUGGING设为1，查看脚本输出的错误详情（调试完成后务必改回0，避免安全风险）。
• Web服务器安全模块拦截：新服务器可能启用ModSecurity等安全模块，拦截了脚本请求。查看Web服务器错误日志，确认是否有相关拦截记录。

4. 配置项与新环境不匹配 #

• 邮件发送配置失效：新服务器可能禁用了sendmail服务，或需使用SMTP替代sendmail。若使用Postfix，确认/usr/sbin/sendmail是否指向Postfix的sendmail兼容程序，且服务正常运行。
• Referer验证失败：@referers设置的reverd.com和localhost可能与新服务器的请求Referer字段不匹配，导致脚本拒绝执行。可临时添加新服务器域名到@referers，或开启调试模式验证是否因Referer检查失败报错。

5. 未查看Web服务器错误日志 #

500错误的具体原因通常会记录在Web服务器的错误日志中（如Apache的error_log、Nginx的error.log），查看日志可直接定位脚本执行时的具体错误（如模块缺失、权限不足、语法错误等），这是最直接的排查方式。

内容的提问来源于stack exchange，提问作者user22105603