如何在Perl CGl脚本中为所有类型的文件打开下载弹出窗口？

Question

在我的应用程序中，用户需要单击文件名，然后用户应该选择下载文件或打开它。我把它的代码用于.doc，.txt扩展工作正常，但它对.docx不起作用

我的代码如下：

 @header('Location:'.$attachment_path);

知道怎么做才能适用于所有类型的附件吗？

Answer 1

谢谢，我找到了一个解决方案。

print "Content-Type:application/x-download\n";

print "Content-Disposition:attachment;filename=$ID\n\n";