4519l6

Listing 6. soap-client.pl

#!/usr/bin/perl -w

use strict;
use diagnostics;      # Remove from production code
use SOAP::Lite;

# Pass the command-line argument for capitalization
my $result = SOAP::Lite -> uri('Text/Caps') ->
proxy('http://localhost:8080')
    -> capitalize($ARGV[0]) -> result();

# Print the result
print "Result = '$result'\n";