in reply to A TRUE-once variable

Heh

$| = 0;
sub true_once {
    not $|++;
}

[download]

In Section Seekers of Perl Wisdom