use strict;
use Integer;
use Time::HR;

my $MAX = 100000000;
my $I = Integer->new(0);
my $i;
my $j=0;
my $t_start = gethrtime();
for ($i=0; $i<$MAX; $i++) { $j += $I->get(); }
my $t_end = gethrtime();
my $ref_time = int(($t_end - $t_start)/1000000);
print $ref_time." ";
