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