#!/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:9000')
    -> capitalize('Mares Eat Oats, And Does Eat Oats, and Little Lambs Eat Ivy')

    -> result() || '';

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