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

[download]

Back to Perl Poetry