# In perl script
my $article = MPDatabase::Article->retrieve($articleId);
$template->param(article => $article);
return $template->output;

# In the template file
<!-- TMPL_VAR NAME="article.title" -->
<!-- TMPL_VAR NAME="article.author" -->
etc...

##</code><code>##

# In perl script
my @articles = MPDatabase::Article->retrieve_all;
$template->param(article_loop => \@articles);
return $template->output;

# In the template file
<!-- TMPL_LOOP NAME="article_loop" -->
<!-- TMPL_VAR NAME="this.title" -->
<!-- TMPL_VAR NAME="this.author" -->
etc...
<!-- /TMPL_LOOP -->

##</code><code>##

foreach my $article ( @articles ) {
  print STDERR $article->anyColumnName;
}