#!/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]
In reply to Re^3: Private Variables and FastCGI / ModPerl
by Anonymous Monk
in thread Private Variables and FastCGI / ModPerl
by expresspotato
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |