sub display_template
{
  my %opts = @_;

  my $output;
  my $files = $opts{file};
  my @files = ref $files ? @$files : ($files);

  unless ($opts{no_header} or $opts{bare})
  {
    my $header = $opts{header} || 'header.tmpl';
    my $tmpl = HTML::Template->new($header);
    $tmpl->param(...); # common params
    $tmpl->param(%{$opts{header_param}}) if $opts{header_param};
    $output .= $tmpl->output();
  }

  foreach my $file (@files)
  {
    my $tmpl = HTML::Template->new($file);
    $tmpl->param(...); # common params
    $tmpl->param(%{$opts{params}}) if $opts{params};
    $output .= $tmpl->output();
  }

  unless ($opts{no_footer} or $opts{bare})
  {
    my $footer = $opts{footer} || 'footer.tmpl';
    my $tmpl = HTML::Template->new($footer);
    $tmpl->param(...); # common params
    $tmpl->param(%{$opts{footer_param}}) if $opts{footer_param};
    $output .= $tmpl->output();
  }

  $output;
}