#!/usr/bin/perl -Tw
# at the top of your page(s)
use Time::HiRes qw/gettimeofday tv_interval/;
my $start_time = [gettimeofday];



# at the very bottom of your page(s)
my $total_time = tv_interval($start_time);
printf('Page processed by Perl %s in %.6f seconds',$],$total_time);
# note: could also have used sprintf