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

##</code><code>##

        print $socket $data[$_];

##</code><code>##

    # write on the socket to server.
    $_=join(' ',$status,$md,$md_others);
    @data=split(" ",$_);