#!/usr/bin/perl -w
use strict;
use SOAP::Transport::HTTP;


sub sendthread {
    my $id = shift;
    my $reply;
    my $servermsg;
    my $data = getfromdb($id);
    my $server = SOAP::Lite                                             
      -> uri('http://www.soaplite.com/Storeit')                                             
      -> proxy('http://your.ip.net/cgi-bin/soapserver.cgi', timeout => 30);
    eval { $servermsg = $server->store($id,$data); };    
    if ($@) { # eval error
        $reply = $@;
    }
    elsif ($servermsg->fault) { # server fault
       $reply = join ', ', $servermsg->faultcode, $servermsg->faultstring, $servermsg->faultdetail;
    }
    else { # everything OK
        $reply = $servermsg->result();
    }
    return $reply;
}
##</code><code>##

#!/usr/bin/perl -w
use strict;
use SOAP::Transport::HTTP;

SOAP::Transport::HTTP::CGI   
  -> dispatch_to('Storeit')     
  -> handle;

package Storeit;

sub store {                     
  my ($class,$id,$data) = @_;
  my $response = storetodb($id,$data);
  return $response;
}