#!perl -w
  use SOAP::Transport::HTTP;
  SOAP::Transport::HTTP::CGI   
    -> dispatch_to('Demo')     
    -> handle;
  package Demo;
  sub hi {                     
    return "hello, world";     
  }
  sub bye {                    
    return "goodbye, cruel world";
  }

##</code><code>##

#!perl -w
  use SOAP::Lite;
  print SOAP::Lite
    -> uri('http://www.mysite.com/Demo')
    -> proxy('http://www.mysite.com/hibye.cgi')
    -> hi()
    -> result;