$|=1;
my $recv = 0; 
while(1) {
$recv++;
if($recv > 200) { 
print "<!-- //--> "; 
undef $recv;
}

open(FIFO,"<fifo"); 
my @read = <FIFO>;
close(FIFO);

foreach(@read) {
............
}

sleep 1; 
}