Select Code to Download

use SOAP::Transport::HTTP;

...
 return time;
}

use SOAP::Lite;
 my $soap = SOAP::Lite
...
  foreach ( 1 .. 1000 ) {
        $soap->ping(1)->result;
  }

$ dprofpp -F
HTTP::Daemon::ClientConn::send_response has 1 unstacked calls in outer
...
 0.00   0.254  0.254   3998   0.0001 0.0001  SOAP::Lite::soapversion
 0.00   0.246  8.625    999   0.0002 0.0086  SOAP::Server::handle
... cut ...

$ dprofpp -F
 ... warnings cutted ...
...
 1.92   0.116  2.893   1000   0.0001 0.0029  SOAP::Transport::HTTP::Cl
+ient::sen
                                             d_receive
 1.89   0.114  0.000   3002   0.0000 0.0000  utf8::SWASHNEW