#!/usr/bin/perl -w

# -- Client
# -- SOAP::Lite -- guide.soaplite.com -- Copyright (C) 2001 Paul Kulchenko --

use SOAP::Lite;

print "Content-type: text/plain\n\n";

print SOAP::Lite
  -> uri('http://yoursoaphost.example.org/Demo')
  -> proxy('http://yoursoaphost.example.org/cgi-bin/soap/hibye.cgi')
  -> hi('Reto')
  -> result, "\n";

print SOAP::Lite
  -> uri('http://yoursoaphost.example.org/Demo')
  -> proxy('http://yoursoaphost.example.org/cgi-bin/soap/hibye.cgi')
  -> bye()
  -> result;