#!/usr/bin/perl -w
use Time::HiRes qw(gettimeofday);
use Looping;

sub gettimeofday_sec {
  my ($sec, $microsec) = gettimeofday;
  return $sec + $microsec*1e-6;
}

my $o = Looping->new;
my $n = 1;

my $t1 = gettimeofday_sec();
for(my $c=0;$c<2147483647;$c++){
  $n = $o->calc($n);
}
my $t2 = gettimeofday_sec();

printf("%d\nPerl\t%f", $n, $t2 - $t1);