use strict;
use warnings;
use Data::Dumper;


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>##

use strict;
use warnings;

use SOAP::Lite;
  print SOAP::Lite                                             
    -> uri('http://myserver.manheim.co.uk:51111/webservices/vehicle')                                             
    -> proxy('http://myserver.manheim.co.uk:51111/webservices/vehicle/soaptest.pl')
    -> hi()                                                    
    -> result;

##</code><code>##

[Tue Nov 30 13:44:40 2010] 15689 Digit.pl: Deep recursion on subroutine "utf8::SWASHNEW" at /usr/share/perl/5.10/utf8_heavy.pl line 251.
[Tue Nov 30 13:44:40 2010] 15689 Digit.pl: Deep recursion on subroutine "CGI::Carp::die" at /usr/share/perl/5.10/utf8_heavy.pl line 198.