sub foo {
  my ( $cgi, $template ) = @_;

  print $cgi->header,
    $template->output;
}