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