my $file = $r->request_body_file();
my $body = HTTP::Body->new($r->header_in('Content-Type')
                         , $r->header_in('Content-Length'));
my $fh = IO::File->new("<$file") or die "can't open $file: $!";
my $len = $r->header_in('Content-Length');
while ($len && 0 < $len) {
  $rh->read(my $buf, ($len < 8192 ? $len : 8192));
  $len -= length($buf);
  $body->add($buf);
}