perlを最近勉強し始めた工房です。今ファイル操作の項を勉強中なのですが、
『ファイル名を指定し、endという単語を入力するまで任意の文章を入力し、
　指定したファイルにその文章を書き込む』
というプログラムを作りたいのですが、どうもうまくいきません。
whileの条件文カッコに何を入れていいのかわからないです…。
以下は現在作っている途中ソースなのですが、どこがいけないのかご指摘いただけないでしょうか。
お願いいたします。

print "Please input object file name\n";
print "file_name = ";
$file_name = <STDIN>;
open FILE, "+>>$file_name";
print "\nPlease input anything writhing\n";
$writing = <STDIN>;

while ()
　{
　unless ($_ =~ /end/)
　　{
　　print FILE "$writing";
　　}
　}
close FILE;