Select Code to Download

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

        print $socket $data[$_];

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