use File::Temp qw(tempfile);
use IO::Handle;

# time passes

my ($fh, $filename) = tempfile();
print $fh "hello";
$fh->flush();
$r->sendfile($filename);