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

##</code><code>##

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