Then you want as mentioned by Fastolfe, Time::HiRes, with code something like this:

use Time::HiRes qw(gettimeofday);
$th0 = gettimeofday;

#your code goes here

$th1 = gettimeofday;
print "<P>Script took: ", sprintf ("%5.3f",($th1 - $th0)), " seconds t
+o the millisecond att www.yoursite.com";
[download]

/jeorgen