sub SomeTemplateCall {
  my $refresh = "http://www.scenespot.org";
  my $cookie  = "some random number";
  my $buffer .= "<b>Stuff</b>";

  return ($buffer, $cookie, $buffer);
}

# The subroutine that called it:

sub templateParser {
  my ($HTML, $cookie, $buffer) = SomeTemplateCall();
  
  # Header would then be generated utilizing $buffer, $cookie
  # $HTML would then be the rest of the damn website
}