#! perl -slw
use strict;
use Time::HiRes 'gettimeofday';

our $ITERS ||= 10_000_000;

my $counter1  = 0;
my $counter2  = 0;

my( $s1, $m1 ) = gettimeofday;
for (1 .. $ITERS) { ++$counter1 & 1 and 1 }
my( $s2, $m2 ) = gettimeofday;
for (1 .. $ITERS) { ++$counter2 % 2 and 1 }
my( $s3, $m3 ) = gettimeofday;

my $d1 = $s2 - $s1 + ($m2 - $m1) / 1_000_000;
my $d2 = $s3 - $s2 + ($m3 - $m2) / 1_000_000;

printf "And: %.9f  Mod: %.9f\n", $d1, $d2;

__END__
c:\test>junk2 -ITERS=1e6
And: 0.258308000  Mod: 0.304192000

c:\test>junk2 -ITERS=1e6
And: 0.258755000  Mod: 0.272495000

c:\test>junk2 -ITERS=1e6
And: 0.259628000  Mod: 0.302872000

c:\test>junk2 -ITERS=10e6
And: 2.656250000  Mod: 2.828125000

c:\test>junk2 -ITERS=10e6
And: 2.671875000  Mod: 2.859375000

c:\test>junk2 -ITERS=10e6
And: 2.671875000  Mod: 2.859375000

c:\test>junk2 -ITERS=100e6
And: 26.187500000  Mod: 28.375000000

c:\test>junk2 -ITERS=100e6
And: 26.265625000  Mod: 28.328125000