perl - CGI perl: ダウンロード スクリプトが機能しない

Question

print $page->p("Hello All, Downloading file");
my @contents= $ssh->file_content("$dir/$file", 1);
download(@contents, $file);
...
...
...
sub download {
    use strict;
    my @content = shift;
    my $filename = shift;
    print "Content-Type:application/x-download\n";
    print "Content-Disposition: attachment;filename=$file\n\n";
    print @content;
    return 1;
}

ただし、ファイルをダウンロードする代わりに、ファイルの内容を画面に出力します。どこが間違っているのか教えてください。

Answer 1

ヘッダーを HTTP 準拠に保つようにしてください。

print "Content-Type: application/x-download\r\n";
print "Content-Disposition: attachment;filename=$file\r\n\r\n";
print @content;