use SOAP::Lite +trace => [qw(all)];

my $soap = SOAP::Lite->uri('http://<my server>/Demo');
my $proxy = $soap->proxy('http://<my server>/steve/rpc/');
my $obj = $proxy->hi();
print $obj->result;