So localizing seems to be thing to do here. There are just too many variables to be localized. I've found that using Devel::Symdump lets me dump all the symbols used in the program.

$globalthis = 0;
$globalthat = 0;

require Devel::Symdump;
$obj = Devel::Symdump->new();

    @array = $obj->scalars;

    foreach (@array){
     print "$_\n";
    }
[download]

How can I local everything in @array? I know its probably extremely dangerous, so I will most likely build a difference table between what is in @array without anything loaded and then again with. Any help is appreciated.

They call that a rewrite, anything else is just prayer

Using local $var seems to be the fix for such problems. Although it may/may not work with mod_perl, it seems to work fine within the FCGI loop.

use FCGI;

while (FCGI::accept >= 0) {

    local $cnt;
    local $last_elapsed;
    
    ###############
    &http(0);
    &head();
    &t('');
    print "OK";
    &t('');
    &t('');
    
    my $cc;
    while ($cc < 1000){
      &test;
        $cc++;
    }    
}

sub test(){
    print "CNT: $cnt";
    $cnt++;
}
[download]

Thank you for your prompt response. Alright perhaps you can help me with this then... How can I keep variables results within a subroutine as if they were global? The following sub is used to see how long portions of code take to execute. But how can I keep $last_elapsed within the sub?

use Time::HiRes qw(tv_interval);

&t('Reference Time');
sleep(2);
&t('Did something');

sub t(){
    my $t0 = [gettimeofday];
    my $elapsed = tv_interval ( $t0 );
    my $elapsed_o = $elapsed;
    
    $elapsed = $elapsed - $last_elapsed;
    if ($last_elapsed){printf ("(%s)%f<br>\n",$_[0],$elapsed);}
    $last_elapsed = $elapsed_o;
}
[download]

Hope to hear from you, _Kevin

#!/usr/bin/perl --

use strict;
use warnings;

use Time::Elapse;

Main(@ARGV);
exit(0);

sub Main {
  Time::Elapse->lapse( my $now = 'Reference Time' );
  print "$now\n";
  sleep 2;
  print "$now\n";
  sleep 1;
  $now = 'Did something';
  print "$now\n";
} ## end sub Main

__END__
16:00:00.000064 [Reference Time]
16:00:02.000000 [Reference Time]
16:00:00.000069 [Did something]
[download]