use IO::Handle;

open (FIFO, ">>fifo") || die;
FIFO->autoflush(1);