Select Code to Download

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

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

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