もまいらしつもそです。

CGI/Perlで、csvファイルをzip圧縮したものを吐き出したいと思ってます。

#! /usr/bin/perl
print "Content-type: application/x-csv\n";
print "Content-Disposition: inline; filename=ahya.csv\n\n";
print "hoge,hoge\n";
exit;

でcsvの吐き出しはできたのですが、
これをzip圧縮して吐き出すにはどうすればいいでしょうか？

ファイルをディスクに保存することなく、
上の様に直接ブラウザに吐き出したいのですが。
よろしくおながいします。