問題在りそうなんで、ＪＰＧのみにしました。

RECORD $ENV{'CONTENT_LENGTH'} = ヘッドの部分　= アップファイル　=

Lcationで、飛ばしていたが、データ-サイズを見ましたら、RECORDを押してください。

実験結果、画像データ-をアップロードするには、バイナリ-で、読みこんで、最初の部分の（\r\n\r\n）までは、要らない。その後を、バイナリ-で、書きこむ