#!/usr/bin/perl
use Time::HiRes qw(gettimeofday);
my $min = 10;
my $max = 0;
for (0..1_000_000) {
    ($secs1, $micro1) = gettimeofday();
    ($secs2, $micro2) = gettimeofday();
    $diff = (($secs2 * 1_000_000) + $micro2) - (($secs1 * 1_000_000) + $micro1);
    $max = $diff if $diff > $max;
    $min = $diff if $diff < $min;
}
print "Min difference: $min\n";
print "Max difference: $max\n";