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