[--
  perl
    code =
      "use XML::RSS;

       my $rss = XML::RSS->new(version => '2.0');

       $rss->channel
       (
         title       => 'The Hope Chest Reviews: Book Reviews',
         link        =>
           'http://www.thcreviews.com/',
         description => 'This RSS Feed provides links the latest Hope Chest Book Reviews.',
       );

       while(my $book_review = $book_reviews_sth->fetchrow_hashref)
       {

         $rss->add_item
         (
           title       =>
             VTS::Application::display_format($book_review->{title}) .
                          q{ by } .
                          join
                          (
                            q{, },
                            @{$authors{$book_review->{book_review_id}}}
                          ),
           link        => qq{http://www.thcreviews.com/cgi-bin/vts/book_review.html?book_review_id=$book_review->{book_review_id}},
           description => $book_review->{synopsis},
         );

       }

       return $rss->as_string;"
--]