[snip]
BEGIN {$prevtime = time();};
[snip]
sub marktime ($) {
    my $label = shift;

    my $newtime = time();
    my $diff = $newtime - $prevtime;
    print "Mark $label time $newtime diff $diff\n";
    $prevtime = $newtime;
}

marktime ("Executing");

##</code><code>##

PATH_INFO="/time/galpage" PATH_TRANSLATED="/home/httpd/html/test/galpage" QUERY_STRING="id=Ep850-20011002-036" SCRIPT_NAME="foobar" time t.cgi
Mark Executing time 1074046822.13994 diff 2.13994002342224
Mark YAML read time 1074046822.71538 diff 0.57544207572937
Mark fiddling time 1074046822.71724 diff 0.00185680389404297
Mark order time 1074046822.7257 diff 0.00846314430236816
Mark Comment time 1074046822.72987 diff 0.0041649341583252
Mark stats time 1074046822.73372 diff 0.00384807586669922
[CGI output here]
Mark end time 1074046822.73533 diff 0.00161886215209961
1.04user 0.08system 0:01.84elapsed 60%CPU (0avgtext+0avgdata 0maxresident)k
0inputs+0outputs (372major+543minor)pagefaults 0swaps