#!/usr/bin/perl -w

use strict;

use SOAP::Lite;

my $service = SOAP::Lite
    -> service('http://otn.oracle.com/ws/deptemp?WSDL');

my $emp =  $service->getEmpInfoArray("7935");
print "Employee DESSAUX's salary is: " .  $emp->[5] . "\n";