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]

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]

#!/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]

Although that does fix the problems with that specific subroutine, it doesn't tell my how to keep a value live within a subroutine without wiping it each time the subroutine is called... local does fix the problem, using local $elapsed_time, within the FCGI loop and outside the subroutine.