以下のように変更してみましが、
エラーが出てしまいました･･･（；；
あと、ATTENTIONっというのは、
どういう役割＆使い方なのですか･･･？
初歩的な質問で申し訳ないです。。

# Sub New Game #
sub new_game {
　　　　&form('start');
　　　　print << 'ATTENTION';
　　　　<tr><td width=50% align=center><font color=gray>
　　　　注意事項<br>
　　　　ゲームを終了する時は、<br>
　　　　「町で保存」か「人里離れて保存」をしてから<br>
　　　　ゲームを終了するようにしてください。<br>
　　　　戦闘や商品の買取などをした時には、<br>
　　　　極力相手のプレイヤーにお礼を言いましょう。<br>
　　　　プレイ人数が３人以上の時は<br>
　　　　プレイする事を禁止します。<br>
　　　　人数が減るまで待ちましょう<br>
　　　　</font></td>
　　　　ATTENTION
　　　　print qq|<tr><table border=0 cellspacing=0 cellpadding=5 align=center>\n|;
　　　　print qq|<tr><td colspan=2 align=center><b>新規登録</b></td></tr>\n|;
　　　　print qq|<tr><td>名前</td><td><input type=text name=name></td></tr>\n|;
　　　　print qq|<tr><td>パスワード</td><td><input type=password name=pass></td></tr>\n|;
　　　　print qq|<tr><td>確認のためもう一度</td><td><input type=password name=pass2></td></tr>\n|;
　　　　print qq|<tr><td>職業</td>\n|;
　　　　@joblines = &opendat($jobdat);
　　　　print qq|<td><select name=job>\n|;
　　　　foreach $line (@joblines) {
　　　　　　　　($job,$others) = split(/<>/,$line);
　　　　　　　　print qq|<option value="$job">$job\n|;
　　　　}
　　　　print qq|</select></td></tr>\n|;
　　　　print qq|<tr><td colspan=2 align=right>\n|;
　　　　&OKbuttoninform('','make_new');
　　　　print qq|</td></tr></table></td></tr>\n|;
　　　　&form('end');
}

▼関連発言
│
└◆666:ニューゲームについて。 [戒] 07/17 22:49
　└◆667:Re:ニューゲームについて。 [moon] 07/18 08:51
　　└◆668:Re[2]:ニューゲームについて。 [戒] 07/18 12:54
　　　└◆669:Re[3]:ニューゲームについて。 [哲] 07/18 15:28
　　　　└◆671:Re[4]:ニューゲームについて。 [戒] 07/18 15:50
　　　　　└◆673:Re[5]:ニューゲームについて。 [哲] 07/18 15:56
　　　　　　└◆674:Re[6]:ニューゲームについて。 [戒] 07/18 16:02
　　　　　　　└◆675:Re[7]:ニューゲームについて。 [哲] 07/18 16:34
　　　　　　　　└◆676:解決〜★ [戒] 07/18 17:22<-last