$|=1;
my $recv = 0; # Setze $recv auf 0
while(1) {
$recv++;
if($recv > 200) { # Wenn $recv über 200 ist
print "<!-- //--> "; # Gebe den Kommentar aus
undef $recv; # Setze $recv auf undef
}

open(FIFO,"<fifo"); # Öffne FIFO
my @read = <FIFO>; # Lese Inhalt
close(FIFO); # Schliesse Fifo 

# Warte hier solange bis überhaupt was ausgelesen wurde.

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

sleep 1; # Halte das Programm dann für 1 Sekunde an
}