提供用户选项以使用Perl / CGI下载多个文件

Question

我正在寻找一种方法为用户提供下载多个文档的选项（主要是pdf），它对单个文档工作正常但是当我尝试循环下载多个文档时，即使通过提供不同的文件名，它也会覆盖每次都是同一个文件。

以下代码适用于单个文档，同样我在foreach中循环，如下所示：

foreach my $file ('file1.pdf','file2.pdf') {
    print "Content-Type: application/x-download\n";
    print "Content-Disposition:attachment;filename=$file\n\n";

    open(FH, '<', "$file");
    binmode FH;
    print <FH>;
    close(FH);
}