とりあえず mod_perl を離れて threads::shared でスレッド間変数共有をやってみましょう。 package Counter; use strict; use threads; use threads::shared; my $counter :shared = 0; sub counter { return ++ $counter; } 1;昨日と同じようなカウンタをインプリメントしてみました(ほんとはカウントアップ部分がアトミックな保証がないのでロックするなりセマフォ使うなりするべきですが)。これを外部スクリプトから使います。 #!/usr/bin/perl use strict; use threads; use Time::HiRes qw( usleep ); use Counter; sub thread_main { for (1 .. 5) { usle