while (each %day) { join #perl wait && wait && wait; sleep 60 * 60 * int(rand(7)); } [download]
In reply to Idling in #perl by dmitri