>>13さんのようにダイヤログを表示させてそこにファイルをいれたいんですが
まったくもってよくわかりません。

use CGI;

$query = new CGI;
print $query->header(-type=>"application/octet-stream", -attachment=>'data.txt');
$filename = $query->param('attachment');

open OUT,">>data.txt" or die "OUT miss\n";
print OUT @hoge;
close OUT;

こんな感じかと思ったんですができません。