#!c:\cygwin\bin\perl.exe

use IO::Socket;

if ($#ARGV < 4) {
	die ("Usage: CurrencyConverterClient.pl <remote-host> <remote-port> <In-Currency> <Out-Currency> <Amount>"); }

printf "connect to %s:%d\n", $ARGV[0], $ARGV[1];

my $sock = IO::Socket::INET->new("PeerAddr" => $ARGV[0],
                                 "PeerPort" => $ARGV[1],
                                 "Proto"    => "tcp")
           || die ("no socket");

my $req  = <<END_OF_REQ;
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/1999/XMLSchema-instance" xmlns:xsd="http://www.w3.org/1999/XMLSchema">
<SOAP-ENV:Body>
<ns1:convert xmlns:ns1="urn:ExampleServices:CurrencyConvert" SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
<inCurrency xsi:type="xsd:string">$ARGV[2]</inCurrency>
<outCurrency xsi:type="xsd:string">$ARGV[3]</outCurrency>
<amount xsi:type="xsd:double">$ARGV[4]</amount>
</ns1:convert>
</SOAP-ENV:Body>
</SOAP-ENV:Envelope>
END_OF_REQ

printf $sock "POST /soap/servlet/rpcrouter HTTP/1.0\nContent-Type: text/xml; charset=utf-8\nContent-Length: %d\nSOAPAction: \"\"\n\n%s",
             length($req),
             $req;
print <$sock>;

$sock->close;