$start = time;
# do one big step
$now = time;
printf "Step one took %d sec\n", $now - $start;
$start = $now;
# do next big step
$now = time;
printf "Next step took %d sec\n", $now - $start'
# and so on...