##
package Demo;
sub foo { return "foo\n" }
sub bar { return "bar\n" }
1;
##
##
use strict;
use SOAP::Lite;
my $soap = SOAP::Lite
->uri('http://localhost/Demo')
->proxy('http://localhost/mod_soap/')
;
print $soap->foo()->result();
##
##
500 unexpected EOF before status line seen
##
##
[notice] child pid 18225 exit signal Segmentation fault (11)