$rv = sysread($sock2, $buffer, $BUFSIZ); if (!defined($rv) && $! == EAGAIN) { } # HERE else { print $sock1 $buffer; }