perlでcsvデータをダウンロードする

下記ソースを明記したcgiにアクセスすると、

ダウンロードダイアログが表示され

data.csvがダウンロードされる。



-----------------------------------------------------------------

#!/usr/bin/perl


#CSVファイル指定
$data="****/****/****/****.csv";


#CSVファイル読み込み
open(IN,"$data");
@DOWNLOADDATA= ;
close(IN);



#CSVファイルのダウンロード
#filename=にダウンロードファイル名
#
print "Content-Type: text/csv\n";
print "Content-Disposition: attachment; filename=data.csv\n\n";


print "@DOWNLOADDATA";