http://www.perlmonks.org?node_id=181500


in reply to Experiment Design

You could use Time::HiRes for accurate time measuring:
use Time::HiRes qw(gettimeofday); print "Press return: "; my $before = gettimeofday; <>; my $elapsed = gettimeofday - $before; print "you took $elapsed seconds\n";
(code taken from the Perl-Cookbook)

---- kurt