# Client side
use SOAP::Lite;

my $endpoint = shift || 'http://localhost:8080';
my $soap     = SOAP::Lite->uri('urn:Demo')
                         ->proxy($endpoint);

my %Test = $soap->Sub1()->result;

foreach my $Key01 ( keys %Test )
{
  print "Key : $Key01\n";
}