BEGIN {
  $time1 = time;
  [ DO MISCELLANEOUS TASKS ]
  $time2 = time;
  unshift @INC, "$home/custom/lib";
  $time3 = time;
}
$time4 = time;

print "Content-type:text/html\n\n";
   
print "Begin Block: " . ($time3 - $time1) . "\n";
print "    Miscellaneous Tasks: " . ($time2 - $time1) . "\n";
print "    unshift inc: " . ($time3 - $time2) . "\n";
print "End begin block/begin main body: " . ($time4 - $time3) . "\n";