Here's a couple:

  zen% perl -we '$|--; print $|; $|--; print $|; print --$|, --$|, $|-
+-, $|--, $/'
  100001
  zen%
[download]

Hugo