#!/usr/local/bin/perl
#
# bench mark speed of looping vs java
#  count to 100 000 000

use Benchmark;


$end = 1000;

$t0 = new Benchmark;

for ($i=1; $i < $end; $i++) {
  for ($p=1; $p < $end; $p++) {$k=1+$p; print $k,"\n"}
}

$t1 = new Benchmark;
$td = timediff($t1, $t0);
print " Time Taken :", timestr($td) , "\n", $p