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

#your code goes here

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