【Perl 】初心者コーナーPart5

ドキュンな質問ですいません。はじめてPerlをやるんですが、
いきなりつまずいています。
送信して書き込むと言う単純作業なんですが以下のように書いたんですが
動作しません。間違えがあったら指摘して下さい・・・

elsif ($in{'menu'}) {

open(IN,"stitle.log") || &error("Open Error : stitle.log","LK");
@line = <IN>;
close(IN);

# 更新
open(OUT,">stitle.log") || &error("Write Error : stitle.log","LK");
print OUT @line;
close(OUT);
}

print <<"EOM";
<form action="$script" method="POST">
<input type=hidden name=pass value="$in{'pass'}">
<input type=hidden name=mode value="admin">
一行目 <input type=text name=menu size=30>
<input type=submit value="サブタイトル">
</form>
EOM


>>401
だからドキュンな質問なんです。本当にわからないです。