#!/usr/bin/perl -w use strict; use warnings; use SOAP::Lite; use Test; my $needle = $ARGV[0]; my $haystack = $ARGV[1]; print "\nLooking for '$needle' in '$haystack'\n\n"; my $test = 'testing'; $test = bless(\$test, 'Test'); my $proxy = SOAP::Lite -> uri('http://pomegranate/Test') -> proxy('http://pomegranate:7000/'); print "*** Without 'use locale' ***\n\n"; print "Remote: '" . $proxy->test(0, $needle, $haystack)->result . "'\n"; print "Object: '" . $test->test(0, $needle, $haystack) . "'\n"; print "\n\n*** Include 'use locale' ***\n\n"; print "Remote: '" . $proxy->test(1, $needle, $haystack)->result . "'\n"; print "Object: '" . $test->test(1, $needle, $haystack) . "'\n";