Idling in #perl

[dmitri]

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