#!/usr/bin/perl
use strict;

$| = 1;

use ClockPerl;

my($timer) = clockperl->new( $main );

$timer->startmark(1);

$timer->startmark(2);

print $timer->benchsub('some_sub');

&some_sub();

$timer->endmark(2);

&some_sub();

&some_sub();

$timer->endmark(1);

print $timer->timediff(1);

print $timer->timediff(2);

$timer->startmark();

$timer->endmark();

print $timer->timediff();

exit;

# ----------------------------------
# sub some_sub
# ----------------------------------
sub some_sub {

   my($i) = 0;

   foreach (1..5000000) {

      ++$i;
   }

   return($i);
}