sub send {
    my $data = shift;
    my $reply;
    my $result;
    my $server = SOAP::Lite                                             
      -> uri('http://www.soaplite.com/server')                                             
      -> proxy('http://xxx.xxx.xxx.xxx/cgi-bin/server.cgi', timeout => 30);
    eval { $result = $server->store($data); };    
    if ($@) {
        $reply = $@;
    }
    elsif ($result->fault) {
       $reply = join ', ', $result->faultcode, $result->faultstring, $result->faultdetail,"sub=sendthread $threadid";
    }
    return $reply;
}