#!/usr/bin/perl
print "Content-type: text/html\n\n";

use Benchmark;
$t0 = new Benchmark;

for ($bench = 0; $bench < 1; $bench++) {

  #Place your code snippets here

}

$t1 = new Benchmark;
$td = timediff($t1, $t0);
print "the code took:", timestr($td), "\n";