#!/exlibris/metalib/m4_b/product/bin/perl

sub BEGIN {
    unshift (@INC, $ENV{'aleph_ext'});
    unshift (@INC, "$ENV{'aleph_product'}"."/perl/lib/site_perl/5.005");
    unshift (@INC, "$ENV{'aleph_product'}"."/perl/lib/site_perl/5.005/i686-linux");
}

use SOAP::Lite+trace => 'debug';

my $soap_request = SOAP::Lite->new();
$soap_request->uri("http://wok-ws.isiknowledge.com/esti/soap/SearchRetrieve?wsdl");
$soap_request->proxy("http://wok-ws.isiknowledge.com/esti/soap/SearchRetrieve");

$service = 'search';

my $soap_response = $soap_request->$service(
    SOAP::Data->name(databaseId => 'DIIDW'),
    SOAP::Data->name(query      => 'TS=(create)'),
    SOAP::Data->name(editions   => ""),
    SOAP::Data->name(firstRec   => '1'),
    SOAP::Data->name(numRecs   => '1'),
);