さすがに文法チェックくらいはしてください。

> 　　　　print qq|<option value="$pid">$pichi$pnm$pjob_\n|;
> 　　　　}
に}が足りないです。

> 　　　　&input('radio','mode','use_before','',"アイテム使用・装備<br>\n")
に;がありません。

▼関連発言
│
└◆601:あの･･･ [戒] 05/23 01:41
　└◆602:Re:あの･･･ [moon] 05/23 08:41
　　└◆603:Re[2]:あの･･･ [戒] 05/23 18:39
　　　└◆604:Re[3]:あの･･･ [moon] 05/24 08:54
　　　　└◆605:Re[4]:あの･･･ [戒] 05/24 13:19
　　　　　└◆606:Re[5]:あの･･･ [moon] 05/24 13:52
　　　　　　└◆607:Re[6]:あの･･･ [戒] 05/24 14:38
　　　　　　　└◆608:Re[7]:あの･･･ [moon] 05/24 14:47
　　　　　　　　└◆609:Re[8]:あの･･･ [戒] 05/24 14:54
　　　　　　　　　└◆610:Re[9]:あの･･･ [moon] 05/24 17:23
　　　　　　　　　　└◆611:Re[10]:あの･･･ [戒] 05/24 18:07
　　　　　　　　　　　└◆612:Re[11]:あの･･･ [moon] 05/24 18:44
　　　　　　　　　　　　└◆613:Re[12]:あの･･･ [戒] 05/24 19:09
　　　　　　　　　　　　　└◆614:Re[13]:あの･･･ [moon] 05/24 19:19
　　　　　　　　　　　　　　└◆615:Re[14]:あの･･･ [戒] 05/24 19:29<-last