#!/usr/local/bin/perl

use strict;
use warnings;
use RTF::Writer;

my $rtf = RTF::Writer->new_to_file("greetings.rtf");
$rtf->prolog( 'title' => "Greetings, hyoomon" );

my $decl = RTF::Writer::TableRowDecl->new('widths' => [1500,1900, 1500]);
$rtf->row($decl, "Stuff", "Hmmm");
$rtf->row($decl, [\'\ul', 'Foo'], 'Bar', \'\bullet');
$rtf->row($decl, "Hooboy.");