use SOAP::Lite;
 my $soap = SOAP::Lite
                -> uri('http://localhost/Server/Benchmark')
                -> proxy('http://host_1_server:8080');

  foreach ( 1 .. 1000 ) {
        $soap->ping(1)->result;
  }