>>810 ↓な感じ？
print qq|Content-type: application/x-download\n|;
print qq|Content-disposition: filename="hoge.txt"\n\n|;
# 以下Text表示