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

##</code><code>##

(my $d2 = (($s3 - $s2) + (($m3 - $m2) / 1000000)));

##</code><code>##

c:\test>junk2 -ITERS=1e6
And: 0.000000300  Mod: 0.000000372

c:\test>junk2 -ITERS=10e6
And: 0.000000302  Mod: 0.000000336

c:\test>junk2 -ITERS=100e6
And: 0.000000299  Mod: 0.000000338

##</code><code>##

c:\test>junk2 -ITERS=1e6
And: 0.000000403  Mod: 0.000000347

c:\test>junk2 -ITERS=1e6
And: 0.000000409  Mod: 0.000000325

c:\test>junk2 -ITERS=10e6
And: 0.000000386  Mod: 0.000000339

c:\test>junk2 -ITERS=10e6
And: 0.000000384  Mod: 0.000000338

##</code><code>##

c:\test>junk2 -ITERS=1e6
And: 0.000000277  Mod: 0.000000286

c:\test>junk2 -ITERS=1e6
And: 0.000000276  Mod: 0.000000271

c:\test>junk2 -ITERS=1e6
And: 0.000000248  Mod: 0.000000283

c:\test>junk2 -ITERS=10e6
And: 0.000000252  Mod: 0.000000277

c:\test>junk2 -ITERS=10e6
And: 0.000000252  Mod: 0.000000278

c:\test>junk2 -ITERS=10e6
And: 0.000000255  Mod: 0.000000278

c:\test>junk2 -ITERS=100e6
And: 0.000000250  Mod: 0.000000277

##</code><code>##

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

our $ITERS ||= 10_000_000;

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

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

my $d1 = ( $s2 - $s1 ) / $ITERS;
my $d2 = ( $s3 - $s2 ) / $ITERS;

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