Your question is perfectly answered by the time function.

Time::Stopwatch is a good module for this. Use it together with Time::HiRes for extreme precision.

use Time::HiRes;
use Time::Stopwatch;
tie my $timer, 'Time::Stopwatch';

$timer = 0;
sleep 2;
print "That took $timer seconds.\n";
[download]

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.