#!/usr/bin/perl
use strict;
use warnings;

use SOAP::Lite;
my $soap = SOAP::Lite->uri('http://localhost/Test')->proxy('http://localhost:8089/');

print 'Returned: ', $soap->return1()->result(), "\n";