use RTF::Writer;
  my $rtf = RTF::Writer->new_to_file("greetings.rtf");
  $rtf->prolog();
  $rtf->paragraph(
    "Hi there!"
  );
  $rtf->close;