$self->request(HTTP::Request->new(
    $r->method() => $r->uri,
    HTTP::Headers->new(%$r->headers_in),
    do { my ($c,$buf); while ($r->read($buf,$cl)) { $c.=$buf; } $c; }
  ));