# write on the socket to server.
    $_=join(' ',$status,$md,$md_others);
    @data=split(" ",$_);
    foreach $_(0..$#data)
    { 
        print $socket $data[$_];
    }

#untested pseudo code
    my $data;
    $socket->recv(data,1024);  # from perldoc IO::Socket
    print $data;     
    $socket->close();