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