* If you plan to use time(), use Time::HiRes instead. It provides more uniqueness and also seems to execute faster than time().

Time::HiRes::time indeed provides more uniqueness, but it is not faster:

Benchmark: running Time::HiRes::time, time, each for at least 1 CPU se
+conds...
Time::HiRes::time:  2 wallclock secs ( 0.82 usr +  0.22 sys =  1.04 CP
+U) @ 1071260.58/s (n=1114111)
      time:  0 wallclock secs ( 0.70 usr +  0.31 sys =  1.01 CPU) @ 18
+16838.61/s (n=1835007)
                       Rate Time::HiRes::time              time
Time::HiRes::time 1071261/s                --              -41%
time              1816839/s               70%                --
[download]

sorry, only way I could figure out how to deal with time "slipping". After $inc == MAXINC

Try the modulo operator %. Example increments:

($counter += 1) %= 5;    # 0, 1, 2, 3, 4, 0, 1, 2..4, 0..4, 0..4, ...
($counter += 1) %= 256;  # 0..255, 0..255, ...
[download]

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.