Select Code to Download

my $file = $r->request_body_file();
my $body = HTTP::Body->new($r->header_in('Content-Type')
...
  $len -= length($buf);
  $body->add($buf);
}