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