448さん>
痛いトコ付きますね！
２つの質問については正直不案内でした。
ourで変数を宣言してもMod_perlにては初期化されませんでした。
mod_perlは勉強する点が色々ありますね！
Perlがスラスラ書けると思い上がってました。

本の紹介どうもありがとうございます。

ついでに
use vars qw ($D $S $Z $SP @popron @vet @btys %in %rt);
($D,$S,$Z,$SP,@popron,@vet,@btys,%in,%rt)="";
の様に同じ配列が２つあるけど、それではスクリプトが複雑になるので以下みたく
@LIST=qw \($D $S $Z $SP @popron @vet @btys %in %rt);
use vars qw(@LIST)
@LIST=();
の様に配列名にパックして綺麗に書いて実行したいけどどの様にすれば宜しいでしょうか？
上の@LISTを使って実行しましたがエラーでした。