select(STDERR);
  $| = 1;

##</code><code>##

use Inline C => <<'END_C';
void make_flush() {
    fflush(NULL);
}
END_C