use strict;
use SOAP::Lite;

my $soap = SOAP::Lite 
   ->uri('http://localhost/Demo')
   ->proxy('http://localhost/mod_soap/')
;

print $soap->foo()->result();