HI,

I am calling a remote web service from UNIX box through perl Soap lite.

I need to call that Webservice ~150 times with different parameters and I want that after each call to the web service the connection should be dropped and all the TCP/HTTP connection to the web service should be destroyed .How to Do this ?

My code

&ExecuteCognosReport($rPATH,$rParamater,$rFileFormat,$rFileName,$rPToSave)<\p>

sub ExecuteCognosReport

{

my $Report=shift;

chomp $Report;

my $Parameters=shift;

chomp $Parameters;

my $OutputFormat=shift;

chomp $OutputFormat;

my $FileName=shift;

my $ptoSavetheReport=shift;

chomp $ptoSavetheReport;

my $response;

my $start_run = time();

print "\nStart Time is $start_run\n";<\p>

my $soap = SOAP::Lite

-> uri($uri)

-> on_action(sub { "$uri"."IDataService/ExecuteCognosReportSimpleTypes"})

-> proxy($url,timeout => 2000,)

->autotype(0)->readable(1);

eval {

$response = $soap->ExecuteCognosReportRequestSimpleTypes(

SOAP::Data->new(name => 'Report', value => "$Report"),

SOAP::Data->new(name => 'Parameters', value => "$Parameters"),

SOAP::Data->new(name => 'OutputFormat', value => "$OutputFormat"),

SOAP::Data->new(name => 'FileName', value => "$FileName"),);

# Print the Result

if ($response->fault)

{

warn $response->faultstring;

}

else

{

print $response->result;

print "\n";

}

};

}