locate Protocol/http.pm


##</code><code>##

   use Time::HiRes qw(time);
   my @times;

##</code><code>##

   if ($has_content) { block, 
   ...
   $response = $self->collect($arg, $response, sub {
   ...
   unless ($drop_connection) {


##</code><code>##

   warn "wrote-request    read-headers     read-content\n@times\n";