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