perlで画像アップロードするプログラムなのですが、手元のWindowsでは問題ないのですが、

さくらインターネットの「FreeBSD 7.1-RELEASE-p4 i386」で試すと添付画像のように壊れてしまいます。

原因がおわかりになるかたはいらっしゃいますか？

#!/usr/bin/perl -w
use strict;
use CGI;

my $query = new CGI;

# ファイル取得
my $fH = $query->upload('filename');

# ファイル保存
my $buffer;
open(OUT, "> file/test.jpg") or die("ファイルの保存に失敗しました。");
binmode(OUT);
while(read($fH, $buffer, 1024)){
print OUT $buffer;
}
close (OUT);
close ($fH) if ($CGI::OS ne 'UNIX'); # Windowsプラットフォーム用
chmod (0666, "file/test.jpg");

print "Content-type: text/html\n\n";
print "<img src=\"file/test.jpg\" /><br />\n";
print "test";
exit;