我应该清理Perl CGI HTML表单中的文件上载输入字段吗?

我了解清理HTML表单输入的必要性,但是当我清理最近模块中的文件上载字段时,文件上载开始失败。清理所有表单输入很重要,对吗?即使是特殊文件上传字段?

我的表单输出代码如下所示:

use CGI;
my $cgi = new CGI;
print $cgi->header();
# ... print some HTML here
print $cgi->start_form();
print $cgi->filefield(-name=>'uploaded_file',
                      -size=>50,
                      -maxlength=>80);
print $cgi->submit(-name=>'continue',
                   -value=>'Continue');
print $cgi->end_form();
# ... print some more HTML here

我的消毒代码看起来是这样的(实际上在上面的同一个模块中是这样的):

use HTML::Entities
my $OK_CHARS => 'a-zA-Z0-9 .,-_';
foreach my $param_name ( $cgi->param() ) {
    my $original_content = $cgi->param($param_name);
    my $replaced_content = HTML::Entities::decode( $original_content );
    $replaced_content =~ s/[^$OK_CHARS]//go;
    $cgi->param( $param_name, $replaced_content );
}

当我最近添加了消毒代码时,文件上传开始失败。文件句柄现在返回未定义:

my $uploadedFilehandle = $cgi->upload('uploaded_file');

那么我在卫生处理代码中做了什么错误吗?我从网上的某个地方得到了这个代码片段,所以我不完全理解。我以前从未见过“o”regex修饰符,也从未使用过html::entities模块。