use FileHandle;

$tmpfile = "/var/tmp/fifotest";

open (FIFO, "$tmpfile");

STDOUT->autoflush(1);
FIFO->autoflush(1);

print <FIFO>;
close (FIFO);