#!/usr/bin/perl -w
use strict;
use SOAP::Lite; # +trace => 'all';
my $soap = SOAP::Lite
    -> uri('urn:Demo')
    -> proxy('http://localhost/soap-test/hibye.cgi')
    -> hi();
print $soap->result;

##</code><code>##

#!/usr/bin/perl -w

use SOAP::Transport::HTTP;
SOAP::Transport::HTTP::CGI
    -> dispatch_to("Demo")
    -> handle;
package Demo;
   sub hi 
   {
      return "Hello";
   }


##</code><code>##

no element found at line 1, column 0, byte -1 at /usr/local/lib/perl/5.10.0/XML/Parser.pm line 153
#!/usr/bin/perl -w

use SOAP::Transport::HTTP;
SOAP::Transport::HTTP::CGI
    -> dispatch_to("Demo")
        -> handle;

        package Demo;

        sub hi 
        {
            return "Hello";
        }
            
at hibye.pl line 4