use strict;
use Socket;

# initialize host and port
  my $host = 'localhost';
  my $port = 8999;
  my $proto = getprotobyname('tcp');

# get the port address
  my $iaddr = inet_aton($host);
  my $paddr = sockaddr_in($port, $iaddr);
  # create the socket, connect to the port
  socket(SOCKET, PF_INET, SOCK_STREAM, $proto) or die "socket: $!";
  connect(SOCKET, $paddr) or die "connect: $!";

# create data
  my $data = <<"START" ;
<?xml version="1.0"?>
<methodCall>
<methodName>sum</methodName>
<params>
<param>
  <value><double>1.12</double></value>
</param>
<param>
  <value><double>4.12</double></value>
</param>
</params>
</methodCall>
START
  my $header = <<"START" ;
POST /quotes.cgi HTTP/1.0
Host: localhost
Content-Type: text/xml
START

$header .= "Content-length: " .  length($data) ;
my $content = $header. "\n" . $data ;
print $content ;

print SOCKET "$content\n" ;

my $line;
while ($line = <SOCKET> )
{
  print $line;
}
close SOCKET or die "close: $!";