# INCORRECT
sub something {
  $|++;
  # do something without buffering
  $|--;
}

##</code><code>##

#CORRECT
sub something {
  my $flush = $|++;
  # do something without buffering
  $| = $flush;
}