> 別の場所を調べましたが、ありませんでした。

sub errorの「print qq|<B><font color=#FF0000>$_[0]</font></B>\n|;」を以下のようにして呼び出し場所を確認してから試してください。
　　print qq|<B><font color=#FF0000>$_[0]</font>|, join(',', (caller(0))[1, 2]), qq|</B>\n|;

▼関連発言
│
└◆1747:バグ？ [パパート] 08/26 19:42
　└◆1748:Re:バグ？ [moon] 08/26 21:31
　　└◆1749:Re[2]:バグ？ [パパート] 08/26 21:42
　　　└◆1750:Re[3]:バグ？ [moon] 08/26 22:01
　　　　└◆1751:Re[4]:バグ？ [パパート] 08/26 22:19
　　　　　└◆1752:Re[5]:バグ？ [moon] 08/26 22:43
　　　　　　└◆1753:Re[6]:バグ？ [パパート] 08/27 12:49
　　　　　　　└◆1754:Re[7]:バグ？ [moon] 08/27 22:26
　　　　　　　　└◆1755:Re[8]:バグ？ [パパート] 08/27 23:27<-last