while(defined(my $data=<$client_socket>))