1sub _autoflush {
2    my $flushed = shift;
3    my $old_fh  = select $flushed;
4    $| = 1;
5    select $old_fh;
6}
7
8_autoflush( \*STDOUT );
9_autoflush( \*STDERR );
10
11print STDOUT "one\n";
12print STDERR "two\n\n";
13print STDOUT "three\n";
14