while($nodie) {
    while(<LOGREQ>) {
        if(! print $_,"\r") {
            confess "can't print to socket: $!";
            $nodie = 0;  
	    last;
        }
    }
}