Select Code to Download

  ... stuff ...
  <table>
...
  </TMPL_LOOP>
  </table>
  ... more stuff ...

  my $template = HTML::Template->new(rows => ...);
  print $template->output;

  ... stuff ...
  <TMPL_INCLUDE NAME="table.tmpl">
  ... more stuff ...

  ... stuff ...
  <TMPL_VAR ESCAPE=0 table>
  ... more stuff ...

   my $template = HTML::Template->new(filename => 'bigpage.tmpl');
   my $tableHTML = tableHTML(...);
   $template->param(table => $tableHTML);
   print $template->output;

  sub tableHTML {
    my %table_data = @_;
...
    $template->param(%table_data);
    return $template->output;
  }