#!/usr/bin/perl

use strict;
use warnings;

use SOAP::Lite;

my $soap = SOAP::Lite->uri('urn:Demo2');
my $proxy = $soap->proxy("http://localhost/soap/");


my $obj = $proxy->hi();
print $obj->result . "\n";