select($rout = $rin, undef, undef, 0.01);
            if (vec($rout, fileno(FIFO), 1))
            {