Select Code to Download

   locate Protocol/http.pm

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

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

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