perl - CGI.pm 标头函数调出下载对话框

Question

我需要从我的 cgi perl 脚本中调出一个下载对话框。

这就是我所拥有的

use CGI qw/:standard/;

print header(-type=>'text/xml',-charset=>'UTF-8');
print header(-'Content-Disposition'=>'attachment; filename="FileName"');
print "<root></root>";

内容处置有问题。我无法让它工作。