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