### Forces a flush after every write to this pipe.
my $old_fh = select(PIPE);
$|=1;
select($old_fh);

##</code><code>##

use IO::Handle qw( );

### Forces a flush after every write to this pipe.
PIPE->autoflush(1);