【Perl 】初心者コーナーPart7

>931
ちゃんと渡ってるかどうか、printして確認してみろ。
エラーが出た時の調査の一番簡単な方法だ。
「そんなはずはない」って思っている部分があったら、きっとそこが間違ってる。
思い込みをしたらエラーは見つけられない。
しらみつぶしに原因を探せ。

if(条件){書き込みフォーム}
else{パスチェック}
とあったら、その直前で条件を全部表示させてみろ。
それで９割がた解決する。
書き込みフォームの入口を調べろ。