Windows下mod_perl启用taint模式时文件上传污染问题求助

我正在给基于mod_perl的旧Perl网站做升级，适配最新Perl版本及依赖库，期间启用了taint模式。目前网站多数功能正常，但文件上传模块突然报错。

报错详情 #

上传文件时触发错误：

Insecure dependency in sysopen while running with -T switch at /Perl/lib/File/Temp.pm line 517

通过栈追踪发现，错误并非来自业务代码，而是源于ModPerl和CGI模块的交互：CGI尝试基于$ENV{TEMP}创建临时文件夹，但该变量处于污染状态，触发了taint模式的安全检测报错。

已尝试的修复操作 #

我修改了Apache配置目录下的startup.pl文件，硬编码设置$ENV{TEMP}的值：

$ENV{TEMP} = 'C:/Temp/AppTempFolder';
warn "Set TEMP - " . is_tainted($ENV{TEMP});  # 此处$ENV{TEMP}确认为未污染状态

但问题并未解决。随后我修改了CGI.pm的read_multipart子例程，打印相关变量状态：

warn "tmp_dir is $tmp_dir - " . is_tainted($tmp_dir);
     # 输出结果：tmp_dir is C:/Temp/AppTempFolder - 1
warn "From: $ENV{TEMP} || $ENV{TMP} || $ENV{WINDIR}";
     # 输出结果：From: C:/Temp/AppTempFolder || C:\WINDOWS\TEMP || C:\WINDOWS

可见$ENV{TEMP}的值保留了我设置的硬编码路径，但被重新标记为污染状态。

疑问与求助 #

根据Perl安全文档的说明，%ENV仅在初始状态下是污染的，手动赋值后应转为未污染状态，且文档未提及变量会被重新污染的情况。

请问：

• 有没有方法可以防止$ENV{TEMP}被重新污染？
• 或者是否存在其他配置CGI模块的方式，让它不依赖污染的%ENV变量来处理文件上传？

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