无法下载多张照片

如何解决无法下载多张照片

我怀疑这可能根本不是 perl 问题，而是与浏览器有关。 我有一个简短的程序可以下载高分辨率版本的照片。工作正常。 我试图让它适用于多个文件。它只下载第一个。无论我做什么，它都不会再下载了。 有什么想法吗？

print STDOUT qq(Content-type: application/force-download\n);
print STDOUT qq(Content-disposition:attachment;filename=$photo\n\n);
print @fileLines;

当然还有更多代码，但这就是实际下载的内容。