Select Code to Download

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

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