Perlについての質問箱 51箱目

print "Content-type: image/jpeg\n\n";
open(IN,"img/img1.jpg");
binmode(IN);
print <IN>;
close(IN);

これで画像を表示しようとするとファミコンでバグっだような画像になってしまってきれいに表示されません
何が原因なのでしょうか？
環境はwindows7、activeperl、ブラウザ（IE8）で実行です