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