#!/usr/bin/perl -- # -*- Perl -*-

use SOAP::Lite;

my $usage = "$0 userid\n";

my $userid = shift @ARGV || die $usage;

my $wsdl = "http://norman.walsh.name/2005/02/24/examples/witw.wsdl";
my $service = SOAP::Lite->service($wsdl);

my $result = $service->name($userid);

print "$userid is $result\n";