...
open my $fh, '+>', undef or die $!;
print $fh "hello";
# $r->send_fd is no longer in mod_perl, so I need a file name:
$r->sendfile("<=&" . fileno($fh));
...