sub {

my $path = '/path/to/gforum/admin/defs';

my $NEWDB = new GT::SQL (
def_path => $path,
cache => 0,
debug => 0,
subclass => 1
);

my $tbl = $NEWDB->table('Post');
$tbl->select_options("ORDER BY post_time DESC LIMIT 10");

my @loop;
my $sth = $tbl->select() || die $GT::SQL::error;
while (my $hit = $sth->fetchrow_hashref) {
push @loop, $hit;
}

return { latest_forum_posts => \@loop }

}

<%get_latest_forum%>
<ul>
<%loop latest_forum_posts%>
<li><a href="/cgi-bin/gforum/gforum.cgi?post=<%post_id%>"><%post_subject%></a></li>
<%endloop%>
</ul>