求救：各位大侠，刚学perl，请帮我看看这个问题

求救：各位大侠，刚学perl，请帮我看看这个问题
首先，感谢您能抽空帮我看这个问题：

我在catalyst下写了个简单的程序AddressBook，并用pdflib模块将所有记录都导出到了pdf，现

在我需要在用户点击按钮后将这个pdf下载到客户端，查了一天资料也没能试验成功。各位大侠能给

个全一点的代码吗?资料的链接也好啊.多谢了![CCB]9[/CCB][CCB]9[/CCB]

我没有使用 catalyst, 但 .
我没有使用 catalyst, 但 google 搜索 'catalyst stream' , 答案是你可以使用

$c->write($chunk)

or

$c->res->body($filehandle_object)

引自 http://lists.scsys.co.uk/pipermail/catalyst/2006-June/008316.html

谢谢，问题仍然存在。
首先谢谢“qiang ”，你说的方法我试过了，问题没有解决，或许我写的代码有问题。我的代码如下：
if ($c->stash->{template} = 'AddressBook.tt') {
open (pdf, "Addressbook.pdf");
$c->res->body(\*pdf);
close(pdf);
}

期待更完整一些的代码。