use IO::Handle qw( ); ### Forces a flush after every write to this pipe. PIPE->autoflush(1);