for (;;) 
    {
        print while (<FIFO>)
        sleep FOR_A_WHILE; # some constant
        seek <FIFO>, 0, 1; # resets EOF
    }