I installed RTF::Writer just to test your code, and after some edits I could make it compile. (For some reason, add_bgcolor isn't a recognized method, so I commented those out; and the use of your private module at the top too.)

I initially got a blank file too. Then I noticed you have mixed two alternatives, you have to use either

$fh = RTF::Writer->new_to_file($rtfReport);
[download]

or

$fh = RTF::Writer->new_to_string(\$RTF_obj);
[download]

but not both. Don't mix them.

For this application, it makes most sense to use the $RTF_obj, because it holds the entire RTF document in memory.

And delete the line

$fh->print(\$RTF_obj);
[download]

near the end, it makes the document exactly twice as long and worse, it corrupts it as Word can no longer read it.

So: near the top, just use

$fh = RTF::Writer->new_to_string(\$RTF_obj);
[download]

you'd even better delete every mention of $rtfReport; and near the bottom, right under $fh->close();, add

print $RTF_obj;
[download]

That's it. Drop the code I gave you earlier to read out the contents of the file, as there is no longer a file, you don't need it. Instead, you're printing out the contents of a string.

HTH.