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