#!/usr/bin/perl

use strict;

use SOAP::Lite;



my $num= shift; $num=~/^\d+$/ or die "USAGE: $0 num/n";

my ($server,$endpoint,$soapaction,$method,$method_urn);
$server='http://evernet.nwmls.com';
$endpoint="$server/evernetqueryservice/evernetquery.asmx";
$soapaction="http://www.nwmls.com/EverNetServices/RetrieveOfficeData";
$method='RetrieveOfficeData';
$method_urn='http://www.nwmls.com/EverNetServices';

my $num2words=SOAP::Lite->new(uri=>$soapaction,
			proxy=>$endpoint);

my $response=$num2words ->
	call(SOAP::Data->name($method)
		->attr({xmlns=>$method_urn})
		=>#Arguments listed next
		SOAP::Data->name(v_strXmlQuery=>$num));

if ($response->fault){
	printf "A fault (%s) occurred: %s\n",
	$response->faultcode,$response->faultstring;
}
else
{ print "$response->result\n";
}

exit;