#! c:/perl/bin/perl
open(FILE,"./diary.txt");
@data = <FILE>;
close(FILE)
print(<<END);
Content-type: text/html
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html><head><title>ファイルの読み込み</title></head>
<body>
for($i=0; $i<3; $i++)
{<p>$data[$i]</p>}
/body>
</html>END

ヒアドキュメンとってのをつかってみたんですけど
for文をとりいれてみたんです。本ではとりいれてないですけど
3行表示されるはうが一行しか表示されません。
どこを修正したらいいでしょうか？