#!/usr/bin/perl
use HTTP::Cookies;
use strict;
use LWP::UserAgent;
{
    my $ua = new LWP::UserAgent;
    $ua->cookie_jar(HTTP::Cookies->new());
    push @{$ua->requests_redirectable}, 'POST';
    my $search_command = "http://wok-ws.isiknowledge.com/esti/soap/SearchRetrieve";
    my $content = '<?xml version="1.0" encoding="UTF-8"?><SOAP-ENV:Envelope xmlns:xsi="http://www.w3.org/1999/XMLSchema-instance" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/1999/XMLSchema" SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"><SOAP-ENV:Body><namesp1:search xmlns:namesp1="http://wok-ws.isiknowledge.com/esti/soap/SearchRetrieve?wsdl"><databaseId xsi:type="xsd:string">DIIDW</databaseId><query xsi:type="xsd:string">TS=(create)</query><editions xsi:type="xsd:string"/><firstRec xsi:type="xsd:int">1</firstRec><numRecs xsi:type="xsd:int">1</numRecs></namesp1:search></SOAP-ENV:Body></SOAP-ENV:Envelope>';

    my $header = new HTTP::Headers (
        'Content-Type'   => 'text/xml; charset=utf-8',
        'User-Agent'     => 'PHP SOAP 0.1',
        'Content-Type'   => 'text/xml; charset=utf-8',
        'SOAPAction'     =>  "http://wok-ws.isiknowledge.com/esti/soap/SearchRetrieve?wsdl#search",
    );

    my $req = new HTTP::Request('POST',$search_command,$header,$content);
    my $res = $ua->request($req);
    print $req->as_string."\n";
    my $response = $res->headers_as_string();
    my $response .= $res->content;
    print "---response---\n$response\n";
}