#!/usr/bin/perl -w
use strict;
use SOAP::Lite;

my $url = 'http://MYSERVER-NAME:8732/Company.Department.Project.ProjectService.ProjectService/?wsdl';
my $uri = 'http://tempuri.org/';
my $xmlns = 'http://tempuri.org/';

# Setup Network Connection

my $soap = SOAP::Lite
	-> uri($uri)
        -> on_action(sub{sprintf '%sIProjectService/%s', @_})
	-> proxy($url);
	
my $response = $soap->GetWorkOrderList(SOAP::Data->new(name=>'siteId', value=>'BKK'));
        

if($response->fault){
	die $response->faultstring;
}
else{
	print $response->result;
}