####Client.pl####
#!perl -w  
use SOAP::Lite;
  print SOAP::Lite                                             
    -> uri('http://localhost/Echo')                                             
    -> proxy('http://localhost/scripts/Server.cgi')
    -> hi()                                                    
    -> result;

####Server.cgi####
 #!perl -w

  use SOAP::Transport::HTTP;

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

  package Echo;

  sub hi {                     
    return "hello, world";     
  }

  sub bye {                    
    return "goodbye, cruel world";
  }