my $l;
                while (sysread(FIFO, $l, 255))
                {
                    $fifodata .= $l;
                }