Select Code to Download

use File::Temp qw(tempfile);
use IO::Handle;
...
print $fh "hello";
$fh->flush();
$r->sendfile($filename);