gistfile1.pl

use Time::HiRes qw(time);
my $then = time();
my $pass = 0;
while (1) {
    my $now = time();
    if ($now < $then) {
        die "$now < $then ($pass)\n";
    }
    $then = $now;
    $pass++;
}