zen% perl -we '$|--; print $|; $|--; print $|; print --$|, --$|, $|--, $|--, $/'
  100001
  zen%