$fh = RTF::Writer->new_to_file($rtfReport); ##

##

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

##

##

$fh->print(\$RTF_obj);

##

##

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

##

##

print $RTF_obj;