おおぅ。サーバのエラーログに「Useless use of not in void context at tegalog.cgi」(Perl 5.8)や「Useless use of negative pattern binding (!~) in void context at tegalog.cgi」(Perl 5.14)という警告が出力されていることに気付いた。Perl 5.14の方が詳しい。動作に問題はないのだが、毎回実行される位置にあるので、アクセス1回につき1警告が出力されてしまう。ローカルのソースは修正した。ちょっと笑ってしまうミスだった。動作は(意図通りに)するのだが。「これでも問題なく動作するのか」とちょっとだけ驚いた。