普通の html に cgi を使って画像を・・

質問

ソースお手本表を見ながら質問タイトルのようなことをやりたいと思いました。
結果はHTMLを実行すると通信が1分から3分ぐらい通信を行い、最後には画像を表示しないようなります。
どこがおかしいのかおしえていただけないでしょうか？
どうかお願いします。

------------------------------------------------
#!/usr/local/bin/perl

#use DBI;
print "Content-type: image/jpeg\n\n";
open FH,"<image.jpg";
binmode FH;
binmode STDOUT;
print while(FH);
close FH;
------------------------------------------------

回答No.1

kokucho81

while(FH)

↓

while(<FH>)

とすれば、動きますですよん♪

お礼

こんな簡単なこととはしりませんでした。
本当にありがとうございました。
ところで何か<>をつける理由があるから動作しなかったのだと思うのですが、どのようなことなのか意味はあるのでしょうか？
単純なミスだけに忘れがちですね（感謝です）