while (recv ($local_client,$e,1,0)) { print $e; last unless connected($local_client) };