print $|=5, ".\n";
  __END__
  1.

##</code><code>##

    if (value assigned to $| is true)
      return 1
    else
      return 0;

##</code><code>##

    print --$|, "\n" for 1 .. 10;
    __END__
    1
    0
    1
    0
    1
    0
    1
    0
    1
    0