Elapsed time for vars was: 25.304 µsec's  

##</code><code>##

Elapsed time for vars was: 5321462136156.284 µsec's  

##</code><code>##

use Time::HiRes qw(gettimeofday tv_interval);  

my $t0          = [gettimeofday];       # Time::HiRes (start time)
my $t1          = '';                   # (end time)

# Draw page, do SQL query here

$t1 = [gettimeofday];   # end timer
my $elapsed = tv_interval ($t0);
$elapsed = $elapsed * 1000;

print p("Elapsed time for vars was: $elapsed  &micro;sec's\n");