while (each %day) { join #perl wait && wait && wait; sleep 60 * 60 * int(rand(7)); }