print "$|\n";      # 0

$| = -1;
print "$|\n";      # 1

$|++;
print "$|\n";      # 1

$|++;
print "$|\n";      # 1

$|--;
print "$|\n";      # 0

$|--;
print "$|\n";      # 1

$|--;
print "$|\n";      # 0