#!/usr/bin/perl --

print "Content-type: text/html; charset=Shift_JIS\n\n";

ソースの頭はこんな感じ↑でFTP転送はアスキーモードでエディタはサクラエディタです。
ちなみにプログラム中のstatのところでバグってるようです。statをコメントにしたら
Premature end of script headersは出なくなりましたが
statなしではプログラムが成り立ちませんので困ります。
ちなみにstatで読み込んでるファイルはtxtファイルですが
txtをアスキーモードでアップしてもバイナリモードでアップしても
上記エラーが出ます。
どのようにすれば解決出来るでしょうか？