#!/exlibris/metalib/m4_b/product/bin/perl
use SOAP::Lite;
{
    my $soap_request = SOAP::Lite->new();
    $soap_request->uri('http://www.soaplite.com/Demo');
    $soap_request->proxy('http://services.soaplite.com/hibye.cgi');
    my $soap_response = $soap_request->hi();
    my $result = $soap_response->result;
    print "$result\n";
}