I was checking on the Oracle Technology Network website last night, when I noticed that they were having a contest to give away new Oracle 9i books if you write a program using Oracle JBuilder to access some web services they have on their site. When I went to download JBuilder, all they had were version for Windows. Having a Mac, that didn't help me much. So, I decided to dust off the SOAP::Lite that I downloaded months ago, and so if I could get it to work. Well, after some tinkering, I finally got a small script to work. All it needs is SOAP::Lite, and all of its requirements, such as XML::Parser::Expat. Enjoy!

#!/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";
[download]